wie kann ich, beim Klick auf die Navigationspfeile auf der Rechten Seite der ListBox, den IndexWert derselben ListBox gleich mit verschieben?
Sozusagen die aktuelle Auswahl in der ListBox gleich mit verschieben?
Gruß Bert
Private Sub SpinButton1_Change()
Label1 = Cells(SpinButton1, 1)
End Sub
Private Sub UserForm_Initialize()
With SpinButton1
.Max = Range("A65536").End(xlUp).Row
.Value = 1
Label1 = Cells(.Value, 1)
End With
End Sub