AW: Das wird bei...
28.06.2017 10:48:58
Daniel
HI
da das Ein- und Ausblenden über einen Wahrheitswert läuft und immer nur ein Umschalten ist, würde das ganze auch mit einem Commandbutton funktionieren, da du einen Wahrheitswert mit Hilfe der Funktion NOT umschalten kannst:
Private Sub CommanButton1_Click()
Columns(3).Hidden = Not Columns(3).Hidden
End Sub
bei mehrern spalten so:
- bei zusammenhängenden Blöcken immer erste und letzte Spalte des Blocks mit Doppelpunkt getrennt angeben, Einzelspalten müssen als Block angegeben werden
- mehrere Blöcke mit Komma getrennt angeben
Private Sub CommanButton1_Click()
Range("B:E,H:K,M:M").EntireColumn.Hidden = Not Range("B:E,H:K,M:M").EntireColumn.Hidden
End Sub
bei Verwendung eines ToggleButtons kann man den Togglebuttonzustand direkt verwenden, um sich die IF-Abfrage zu sparen:
Private Sub ToggleButton1_Click()
Range("B:E,H:K,M:M").EntireColumn.Hidden = ToggleButton1.Value
End Sub
bzw, wenn man ein- und ausblenden dem jeweils anderen Schaltzustand zuordnen will:
Private Sub ToggleButton1_Click()
Range("B:E,H:K,M:M").EntireColumn.Hidden = Not ToggleButton1.Value
End Sub
Gruß Daniel