benötige Hilfe zu folgendem Problem:
Folgender Gedanke: In Spalte A von Zeile 21 bis 44 gehören immer 4 Zeilen zu einem Block und sind dementsprechend gruppiert(21,22,23,24 - 26,27,28,29 usw.).Nun möchte ich prüfen,welche Blöcke leer sind und diese Gruppierung dann ausblenden.
Die Prüfung läuft folgendermassen ab:
Sub GruppierungAusblenden()
Dim Zei As Long
With Sheets(1)
For Zei = 21 To 44 Step 5
If Application.CountBlank(.Range("A" & Zei & ":A" & Zei + 3)) = 4 Then
MsgBox "Es sind leere Blöcke vorhanden"
End If
Next Zei
End With
End Sub
Anstatt der MsgBox sollen nun über "ActiveSheet.Outline.showLevels RowLevels"(hab die Funktion im Forum gefunden) alle leeren Blöcke auf einmal oder auch nacheinander ausgeblendet werden.Die +-Zeichen zum manuellen Einblenden müssen dabei vorhanden bleiben.
Wie bewerkstellige ich das? Oder gibt es ne cleverere Lösung dafür?
LG Der Blondie