Ende einer Gruppe finden

[Nyn007]

Ha((o

Möchte in VBA eine Gruppe (Zeilen) um eine weitere Zeile erweitern. Wie finde ich die letzte Zeile einer Gruppierung, füge eine neue Zeile und erweitere um diese Zeile die Gruppe. Hat jemand einen guten Tipp?

Danke
Nyn007

[Klaus-Dieter]

Hallo,

zeige mal deine Liste, ich ahne fürchterliches.

[Flotter Feger]

Hallo Klaus-Dieter,

meinst du hier in dem X-Post kommt noch was ?
https://www.ms-office-forum.net/forum/sh...p?t=356182

Ich wüsste da ja was, wenn zwischen den 'Gruppen' ... eine Leerzeile wäre ...

[Nyn007]

Ha((o

Sorry. War längere Zeit abwesend. Ich habe es gelöst. Mit diesem Code.

    z1 = ActiveCell.Row

    If Cells.Rows(z1).OutlineLevel = 1 Then
        If Cells.Rows(z1 + 1).OutlineLevel = 1 Then
           MsgBox ("Nicht innerhalb einer Gruppe")
           Exit Sub
        End If
    End If
    While (Not Cells.Rows(z1 + 1).OutlineLevel = 1)
        z1 = z1 + 1
    Wend
    z2 = z1
    While (Not Cells.Rows(z2).OutlineLevel = 1)
        z2 = z2 - 1
    Wend
    Rows(z1 + 1).Insert Shift:=xlDown

Grüße
Nyn007