Zeilen ein u. ausblenden
Jochen
ich möchte gerne mit diesem Makro Zeilen ein u. ausblenden.
Das gleiche verwende ich schon für Spalten, wobei an Stelle von
Rows("13:360") steht dort
Range ("F:F, W:X").
Das fuktioniert auch.
Private Sub CheckBox1_Click()
ActiveSheet.Unprotect
Rows("13:390").EntireColumn.Hidden = Not CheckBox1
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Danke im Voraus
Jochen
Anzeige