Toggelbuton Code erweitern
12.01.2022 20:30:41
Robert
Habe mal wieder ein Problem. Ich möchte den Code für einen Toggelbutton so erweitern das mit Unterbrechung Spalten ein und ausgeblendet werden. Mit den Spalten L bis AB funktioniert das sehr gut. Aber ich will noch gleichzeitig die Spalten AE bis AF aus- und einblenden. Das funktionier aber nicht.
Private Sub ToggleButton3_Click()
With ToggleButton3
If .Value Then
.Caption = "Spalten L bis AB einblenden"
.Caption = "Spalten AE bis AF einblenden"
Else
.Caption = "Spalten L bis AB ausblenden"
.Caption = "Spalten AE bis AF einblenden"
End If
Worksheets("Zentral Zeitg.Werbg.").Range("L:AB ").EntireColumn.Hidden = .Value
End With
End Sub
Wie muss ich das schreiben, oder geht das garnicht.
Vielen Dank im voraus.
LG Robert