Spinbutton
24.09.2021 16:28:37
wolfgang
ich habe diese Makros übers Forum erhalten, jetzt soll die Auswahl nur bis zur Sheet 4 auswählen.
'--- nach VORNE bis zum Ende, dann automatisch wieder zur 1.Sheet ----
Private Sub SpinButton1_SpinUp()
Dim i
i = ActiveSheet.Index
If i = Sheets.Count Then i = 0
Sheets(i + 1).Activate
Label100.Caption = ActiveSheet.Range("B1")
UserForm_Initialize
End Sub
'--- ZURÜCK, dann automatisch wieder zur letzten Sheet ----
Private Sub SpinButton1_SpinDown()
Dim i
i = ActiveSheet.Index
If i = 1 Then i = Sheets.Count + 1
Sheets(i - 1).Activate
Label100.Caption = ActiveSheet.Range("B1")
UserForm_Initialize
End Sub
mfg wolfgang