[
attachment=14374]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???
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
Hi Tom,
so geht er bis zum letzten eingetragen Film, aber dann kann ich nicht mehr vor und zurück.
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
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 :)
das lösche ich bei jeder Datei die du postest raus
(13.11.2017, 21:31)Crazy Tom schrieb: [ -> ]das lösche ich bei jeder Datei die du postest raus
OK....ich dachte, die werden noch gebraucht
wer entscheidet denn in deinem Programm was du brauchst?
:19:
[
attachment=14375]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