Anzeige

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


#1
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 ..
 

Yaslaw

n/a
Moderator
#3
So auf die schnelle. Es gibt sicher auch noch elegantere Lösungen
Visual Basic:
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
 
Anzeige

Neue Beiträge

Anzeige