Anfänger VBA braucht Hilfe beim Spalten ausblenden
 

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

AW: Anfänger VBA braucht Hilfe beim Spalten ausblenden
 

Quick and dirty:

[code]
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
[/code]

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