Anfänger VBA braucht Hilfe beim Spalten ausblenden

[Stümper]

Hallo zusammen,

bin absoluter Anfänger im Bereich VBA.
Habe folgendes Problem zu lösen:

Ich habe ein Excel Sheet, bei dem ich per Makro die leeren Spalten ausgeblendet haben will. Das Makro soll also selber im Berech von z.B. Spalte A bis Spalte Z schauen, ob es Spalten gibt die komplett leer sind und wenn ja, dann diese Spalten ausblenden.

Thx im voraus!
Gruß Stümper

[redilS]

Quick and dirty:

  
  Dim bCellsFilled As Boolean
 
  For Each Column In Columns("A:Z")
 
    Column.Select
    bCellsFilled = False
 
    For Each cell In Selection.Cells
      DoEvents
      If cell.Value <> Empty Then
        bCellsFilled = True
        Exit For
      End If
    Next
 
    If bCellsFilled = False Then
      Column.EntireColumn.Hidden = True
    End If
 
  Next

Läuft aber bei komplett leeren Spalten ne ganze Weile, da wirklich _jede_ Zelle in _jeder_ Spalte auf Inhalt geprüft wird.