Excel und VBA - Die Excel-FAQ

Alle leeren Spalten ausblenden
Produkte
Service
Sonstiges
RSS

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Excel-Grundwerk (Beispiel-Arbeitsmappen) Excel-Tutorial Excel-Dialoge Excel-Forums-Archiv Excel-Grundlagen (Einführung) VBA-Grundlagen (Einführung) Zur Bestellseite

Alle leeren Spalten ausblenden

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