Nach jeder 5. Gruppe in spalte leere zeile einfügen

[xxfreestyle20xx]

Hallo und erst mal danke für die Hilfe.. Habe ein Excel wo in spalte N verschiedene Namen stehen z.b

Muster
Muster
Muster
Test
Test
Werk
Werk
Werk
Werk
Hilfe
Werk
Werk
-------- Leere Zeile-----
Ebene
Ebene

Nun bräuchte ich nach jeder 5. Gruppe (in dem Beispiel ab Ebene) eine Leere Zeile ..

 

[theva]

Hi,
beschreibe doch bitte dein Anliegen etwas deutlicher.

 

[Yaslaw]

So auf die schnelle. Es gibt sicher auch noch elegantere Lösungen

Public Sub t405720()
    Dim ws As Worksheet:    Set ws = Worksheets("Sheet1")
    Dim col As Range:       Set col = ws.Range("N:N")
    Dim lastValue As Variant
    Dim counter As Long
    Dim cl As Range
   
    For Each cl In col
        If cl.Value = Empty Then Exit For
        'Falls der Wert nicht dem Wert der Vorzeile entspricht, Counter hochzählen
        If cl.Value <> lastValue Then
            counter = counter + 1
            lastValue = cl.Value
        End If
        'Falls der Counter durch 5 teilbar ist und die nächste Zeile (offset) ungleich ist, eine Leerzeile einfügen
        If counter Mod 5 = 0 And cl.Offset(1).Value <> lastValue Then
            cl.Offset(1).Insert xlDown
        End If
    Next cl
End Sub