ich habe folgendes Problem, und zwar will ich mehrere Spalten ausblenden und wieder einblenden können ... das ganze soll aber über einen, in der Excel-Tabelle eingefügten, "Button" funktionieren.
Danke für eure Hilfe
Private Sub CMB_EINAUSBLENDEN_Click()
Range("4:4,9:9,12:13,16:17").EntireRow.Hidden = _
not Range("4:4,9:9,12:13,16:17").EntireRow.Hidden
If Worksheets(1).Range("A4").EntireColumn.Hidden = True Then
CMB_EINAUSBLENDEN.Caption = "Zellen" & Chr(13) & "einblenden"
Else
CMB_EINAUSBLENDEN.Caption = "Zellen" & Chr(13) & "ausblenden"
End If
End Sub