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