Hallo an alle,
in einem file sind mehrere Daten enthalten. Diese gliedern sich z.b. nach Umsatz pro Direktor, Marke, Land etc.
Einige Zeilen bleiben leer da es beispielsweise für diesen Direktor in diesem Land keinen Umsatz gibt.
Um das file übersichtlicher zu gestalten, verstecke ich jede leere Zeile manuell.
Ein Makro das mir diesen Vorgang erleichtern soll, macht Probleme.
Ich möchte im VBA also programmieren:
Gehe alle Spalten und Zeilen in diesem Datenblatt durch. Sind die Zellen eines Bereiches (Spalte,Zeile) durchgehend 0 (also leer) dann verstecke diese Zeile.
Steht jedoch in einer Zelle etwas drin, dann verstecke die Zeile nicht.
Anzumerken ist noch, dass es meherere "sheets" gibt und die Tabellen darin immer unterschiedliche Zeilen und Spaltenanzahl haben.
Hier der bisherige Code:
Sub HideEmptyRows()
Dim Zeile As Long
Dim ZeileMax As Long
Dim Spalte As Long
Dim SpalteMax As Long
With ActiveSheet
ZeileMax = .UsedRange.Rows.Count
SpalteMax = .UsedRange.columns.Count
For Zeile = 1 To ZeileMax
For Spalte = 1 To SpalteMax
If .Cells(Zeile, Spalte).Value = Empty Then
End If
Next Spalte
Next Zeile
End With
End Sub
|