Ich habe diesen Code gefunden und versuche ihn anzupassen das wenn A1 leer ist das alle Spalten wieder eingeblendet werden sollen.
~ Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
On Error GoTo ErrExit
If Target.Address = "$A$1" Then
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
For Each rng In Range("C2:Z2")
rng.EntireColumn.Hidden = rng Target
Next
End If
ErrExit:
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
~Wer kann mir dabei Helfen? Vielen Dank schon mal.
Mit freundlichen Grüßen Thomas!