Filmcover in Userform amzeigen?

[MdeJong]

    Hi Tom,


mein Gott....ich dachte, das ich alles richtig gemacht habe?

Jetzt werden beim Spin die Bilder angezeigt.      ....ich danke dir .....für deine geduld

Nur beim Suchen passiert laut beigefügtes Bild folgendes.

Film Titel und Originaltitel passen nicht zusammen.

Dann ist mir schon ein paar mal passiert, das der Spin auch die Erste Zeile der Datenbank, wo die Filme gespeichert werden....
Die Spaltenüberschriften......auch mit anzeigt und wenn ich später in das Speicherdatenblatt schaue, sind die Überschriften überschrieben.

der Spinbutton sollte diese Zeile gar nicht anzeigen, sowie auch nicht noch die leeren Zeilen...wo keine Filme sind???

[Crazy Tom]

Hallo

schau mal ob es so besser passt

Code:

Private Sub SpinButton1_SpinDown()
  If TextBox20.Value = "" Or TextBox20.Value = 1 Then Exit Sub
  TextBox20.Value = TextBox20.Value - 1
   ListBox1.Clear
  With Sheets("BluRay-Liste")
      TextBox19.Value = .Cells(TextBox20.Value + 1, 2)
      TextBox18.Value = .Cells(TextBox20.Value + 1, 3)
      TextBox16.Value = .Cells(TextBox20.Value + 1, 4)
      TextBox15.Value = .Cells(TextBox20.Value + 1, 8)
      TextBox17.Value = .Cells(TextBox20.Value + 1, 6)
      TextBox12.Value = .Cells(TextBox20.Value + 1, 9)
      TextBox13.Value = .Cells(TextBox20.Value + 1, 7)
      TextBox14.Value = .Cells(TextBox20.Value + 1, 5)
      TextBox10.Value = .Cells(TextBox20.Value + 1, 10)
      TextBox11.Value = .Cells(TextBox20.Value + 1, 11)
      ListBox1.AddItem .Cells(TextBox20.Value + 1, 12)
      TextBox21.Value = .Cells(TextBox20.Value + 1, 14)
      Call Cover_einfuegen
  End With
End Sub

Private Sub SpinButton1_SpinUp()
   Dim lngMax As Long
   lngMax = WorksheetFunction.Max(Sheets("BluRay-Liste").Columns(1))
   If TextBox20.Value = lngMax Then Exit Sub
  If IsNumeric(TextBox20.Value) Then
      TextBox20.Value = TextBox20.Value + 1
  Else
      TextBox20.Value = 1
  End If
   ListBox1.Clear
  With Sheets("BluRay-Liste")
      TextBox19.Value = .Cells(TextBox20.Value + 1, 2)
      TextBox18.Value = .Cells(TextBox20.Value + 1, 3)
      TextBox16.Value = .Cells(TextBox20.Value + 1, 4)
      TextBox15.Value = .Cells(TextBox20.Value + 1, 8)
      TextBox17.Value = .Cells(TextBox20.Value + 1, 6)
      TextBox12.Value = .Cells(TextBox20.Value + 1, 9)
      TextBox13.Value = .Cells(TextBox20.Value + 1, 7)
      TextBox14.Value = .Cells(TextBox20.Value + 1, 5)
      TextBox10.Value = .Cells(TextBox20.Value + 1, 10)
      TextBox11.Value = .Cells(TextBox20.Value + 1, 11)
      ListBox1.AddItem .Cells(TextBox20.Value + 1, 12)
      TextBox21.Value = .Cells(TextBox20.Value + 1, 14)
      Call Cover_einfuegen
  End With
End Sub

MfG Tom

[MdeJong]

Hi Tom,


so geht er bis zum letzten eingetragen Film, aber dann kann ich nicht mehr vor und zurück.

[Crazy Tom]

Hallo

kann ich nicht nachvollziehen
bei SpinUp geht er bis zum 5. Film
und von da aus zurück bis zu Film 1 und wieder hoch bis 5 usw

MfG Tom

[MdeJong]

ich weiß auch nicht....irgendetwas stimmt mit der Mappe nicht....ich nehme jetzt eine davor und gebe deine Codes dort ein.


Kann ich eigentlich diesen ganzen überflüssigen Kram raus löschen?

Code:

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox15_Change()

End Sub

Private Sub TextBox16_Change()

End Sub

Private Sub TextBox19_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox20_Change()

End Sub

Private Sub TextBox3_Change()

End Sub

Private Sub TextBox4_Change()

End Sub

Private Sub TextBox5_Change()

End Sub

Private Sub TextBox6_Change()

End Sub

Private Sub TextBox7_Change()

End Sub

Private Sub TextBox8_Change()

End Sub

Private Sub TextBox9_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Das ist ja alles leer...nimmt nur Platz weg und ich verliere die Übersicht :)

[Crazy Tom]

das lösche ich bei jeder Datei die du postest raus

[MdeJong]

das lösche ich bei jeder Datei die du postest raus

OK....ich dachte, die werden noch gebraucht

[Crazy Tom]

wer entscheidet denn in deinem Programm was du brauchst?  :19:

[MdeJong]

wer entscheidet denn in deinem Programm was du brauchst?  :19:

Mama  :19:

[MdeJong]

  Datebank_1.xlsm (Größe: 117,8 KB / Downloads: 2) Hi Tom,


so ich hab jetzt ne Mappe davor genommen....alle Einträge  (Codes von dir ) eingefügt und aufgeräumt 

der spin geht rauf und runter.....aber das Suchen ist wie bisher.
sie mein letztes Bild hier im Thread.
Gibt es nicht ne Möglichkeit, wo ich einen begriff eingebe?
Z.b...Thor ist 2mal vorhanden....wenn ich nach Thor suche und auch nur Thor eingebe, kann er nicht vorher beide anzeigen und ich wähle den richtigen an,den ich mir anzeigen lassen will?


Vielleicht siehst du auch noch einen Fehler in meiner Mappe....den ich einfach nicht sehe

Gruß Michael