In Tabelle Bild zurück klicken
12.05.2022 04:22:14
oraculix
In meiner Tabelle klicke ich auf ein Bild und dann wird nach jedem Linksklick das nächste Bild geladen.
was auch gut funktioniert mit Cells(ActiveCell.Row + 1, 2).Select!
Frage:
Wie kann ich mit einem Rechtsklick zurück zum vorigen Bild?
Habe folgendes versucht
Cells(ActiveCell.Row + 1, 2).Select
Cells(ActiveCell.Row - 1, 2).Select
Funktioniert aber leider nicht!
Danach habe ich es so versucht funktioniert auch nicht , was ist da falsch?
Ersuche um Hilfe!
Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then
If Cells(ActiveCell.Row - 1, 2).Select Then _
Cells(ActiveCell.Row + 1, 2).Select
Else
Cells(ActiveCell.Row - 1, 2).Select
'End If
End Sub
Oraculix