Gruppe
Allgemein
Problem
Wie kann ich alle leeren Spalten eines Tabellenblattes ausblenden?
StandardModule: basMain
Sub LeereSpalteAus()
Dim iCounter As Integer
Application.ScreenUpdating = False
For iCounter = 1 To 256
If WorksheetFunction.CountA(Columns(iCounter)) = 0 Then
Columns(iCounter).Hidden = True
End If
Next iCounter
Application.ScreenUpdating = False
End Sub