Dim i As Long
Dim lastRow As Long
With Worksheets("Tabelle1")
.UsedRange.EntireRow.Hidden = False
' letzte Zeile im Spaltenbereich AU-AZ ermitteln
For i = .Columns("AU").Column To .Columns("AZ").Column
lastRow = WorksheetFunction.Max(lastRow, .Cells(.Rows.Count, i).End(xlUp).Row)
Next
' Zeilen verstecken, die leer sind
For i = 2 To lastRow
.Rows(i).Hidden = WorksheetFunction.CountA(.Range(.Cells(i, "AU"), .Cells(i, "AZ"))) = 0
Next
End With
... so ungefähr müsste es ausschauen.
|