ich möchte außer der Spalte mit dem Aktuellen Datum alle anderen Spalten ausblenden. Habe etwas probiert. Aber es werden alle Spalten ausgesblendet.
Private Sub CommandButton24_Click()
Sheets("Kalender").Range("E4:NE4").Activate
If Sheets("Kalender").Range("E4:NE4").Find(Date) Then
Selection.EntireColumn.Hidden = True
End If
Gruß Achim h.