Hallo Heiko,
danke für deine Hilfe, sieht ja heftig aus der code.
Habe es nun im excel versucht aber es gibt ein paar Fehlermeldungen
ublic Sub LeereZeilenVerstecken()
'Dieses Makro durchsucht alle Arbeitsblätter dieser Datei. Blendet alle Zeilen aus, in denen außer der Zeilentitel nichts steht.
'Die Spalte des Zeilentitels ist parametrisiert
'Hier Spaltennummber der Zeilentitle eingeben
Const c_lngSpalteZeileTitel As Long = 2 'Spalte B
Dim wks As Worksheet
Dim lngZeile As Long
Dim lngErsteZeile As Long
Dim lngLetzteZeile As Long
Dim lngSpalte As Long
Dim lngLetzteSpalte As Long
Dim rngZeilenTitel As Excel.Range
Dim rngZelle As Excel.Range
'Letzte Zeile und letzte Spalte bestimmen
Set wks = ThisWorkbook.Worksheets(1) 'um alle Worksheets in dem Workbook zu aktivieren
lngLetzteZeile = wks.Rows.Count
lngLetzteSpalte = wks.columns.Count
For Each wks In ThisWorkbook.Worksheets
'erste Zeile bestimmen
lngZeile = 1
Set rngZeilenTitel = wks.Cells(lngZeile, c_lngSpalteZeileTitel)
Do Until rngZeilenTitel.Value = ""
lngZeile = lngZeile + 1
Set rngZeilenTitel = wks.Cells(lngZeile, c_lngSpalteZeileTitel)
'alle Zeilen durchsuchen und ausblenden wenn leer
Do Until rngZeilenTitel = "" Or lngZeile = lngLetzteZeile + 1
lngSpalte = c_lngSpalteZeileTitel + 1
Set rngZelle = wks.Cells(lngZeile, lngSpalte)
Loop
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 Then
End If
End Sub
Fehlermeldung 1: "Do without Loop"
Fehlermeldung 2: " For without next"
Fehlermeldung 3 zu -Do Until rngZelle = "" Or lngSpalte = lngLetzteSpalte- : Object variable or with block variable not set
Hast du vielleicht eine Ahnung was das sein könnte?
Danke
LG
Nicole
|