Alle leeren Spalten ausblenden

Thema: Allgemein - Gruppe Ansicht

Arbeitsmappe

068699    041298

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