Public Sub subLeereZeilenAusblenden()
Const c_lngSpalteZeilenTitel As Long = 2
Dim wks As Excel.Worksheet
Dim lngZeile As Long
Dim lngErsteZeile As Long
Dim lngLetzteZeile As Long
Dim lngSpalte
Dim lngLetzteSpalte As Long
Dim rngZeilenTitel As Excel.Range
Dim rngZelle As Excel.Range
Set wks = ThisWorkbook.Worksheets(1)
lngLetzteZeile = wks.Rows.Count
lngLetzteSpalte = wks.Columns.Count
For Each wks In ThisWorkbook.Worksheets
lngZeile = 1
Set rngZeilenTitel = wks.Cells(lngZeile, c_lngSpalteZeilenTitel)
Do Until rngZeilenTitel.Value <> ""
lngZeile = lngZeile + 1
Set rngZeilenTitel = wks.Cells(lngZeile, c_lngSpalteZeilenTitel)
Loop
Do Until rngZeilenTitel = "" Or lngZeile = lngLetzteZeile + 1
lngSpalte = c_lngSpalteZeilenTitel + 1
Set rngZelle = wks.Cells(lngZeile, lngSpalte)
Do Until rngZelle <> "" Or lngSpalte = lngLetzteSpalte
lngSpalte = lngSpalte + 1
Set rngZelle = wks.Cells(lngZeile, lngSpalte)
If rngZelle = "" And lngSpalte = lngLetzteSpalte Then
wks.Rows(lngZeile).Hidden = True
End If
Loop
lngZeile = lngZeile + 1
If lngZeile <= lngLetzteZeile Then
Set rngZeilenTitel = wks.Cells(lngZeile, c_lngSpalteZeilenTitel)
End If
Loop
Next wks
Set rngZeilenTitel = Nothing
Set rngZelle = Nothing
Set wks = Nothing
End Sub