automatische Gruppieren
10.07.2020 12:49:32
A.D.
Ich verwende folgenden im Netz gefundenen Code um Zeilen zu gruppieren:
Sub Gruppieren()
Dim Zeile As Long, Anfang As Long, Ende As Long
Zeile = 32
Do
Do Until Cells(Zeile, 1) = Cells(Zeile - 1, 1)
Zeile = Zeile + 1
Loop
Ende = Zeile + 1
Do Until Cells(Zeile, 1) = Cells(Zeile - 1, 1)
Zeile = Zeile + 1
Loop
Anfang = Zeile
Rows(Anfang & ":" & Ende).Select
Selection.Rows.Group
Loop Until Cells(Zeile, 1) = ""
End Sub
Er macht grundsätzlich was er soll, aber das Coding wird unbeabsichtigt mehrfach durchlaufen und bricht nach einigen Durchläufen mit Laufzeitfehler 1004 ab.