Ich will mit diese Code mehrer Spalten auf einmal schliessen.
Eine bring ich zusatnd jedoch am Code für mehrer scheitere ich kläglich:(
ev kann mir jemand weiterhelfen
Private Sub Druckbereich_Click()
With Worksheets("Sub.Verlauf")
If Druckbereich Then
.Range("G:H""K:M""O""R:S""W:AC""AE""AI:AJ""AM:AN").EntireColumn.Hidden = True
Else
.Range("G:H""K:M""O""R:S""W:AC""AE""AI:AJ""AM:AN").EntireColumn.Hidden = False
End If
End With
End Sub