ich möchte in einem Makro in den Spalten B-L die spalten ausblenden die ab
Zeile 3 keine Einträge mehr haben.
Zu Beginn meines Makros möchte ich alle wieder einblenden.
Wie kann ich das bewerkstelligen ?
Danke schon mal im voraus allen.
Gruß Jürgen
Dim i As Long
Application.ScreenUpdating = False
Columns("B:L").EntireColumn.Hidden = False
For i = 2 To 12
If Application.CountA(Range(Cells(4, i), Cells(65000, i))) = 0 Then
Columns(i).Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub