Letzte Zeile in Userform1
23.12.2022 19:06:05
oraculix
In meiner Userform1 klicke ich mit der Linken Maus auf ein Bild, und dann wird mir immer das nächste Bild gezeigt.
Aber: Wenn ich am ende der Datenbank angekommen bin kommt ein Fehler. Weil die die Nächste Zelle Leer ist und kein weiteres Bild gezeigt werden kann.
Frage: Wie muss ich den VBA Code erweitern damit Zb. eine Msgbox kommt mit Ende der Datenbank erreicht. Und der Fehler abgefangen wird. Die Spalte ist A in Tabelle "FilmDb" Der Wert wird über die Listbox "Lst_Treffer" ermittelt.
Dieser Code Funktioniert gut aber nur solange keine leere Zelle (Ende der Datenbank)abegerufen wird.
' Links Klick auf Imagr24 in Userform1 zeigt nächstes Bild
Private Sub Image24_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
If Button = 1 Then
If Lst_Treffer.ListIndex 0 Then Lst_Treffer.ListIndex = Lst_Treffer.ListIndex - 1
End If
End Sub
Oraculix
Anzeige