Public Sub Zeilen_einfügen()
Dim i As Long, loLetzte As Long
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = loLetzte To 2 Step -1
If .Cells(i, 1) <> "" And .Cells(i - 1, 1) <> "" Then
If .Cells(i, 1).Value <> .Cells(i - 1, 1).Value Then
.Rows(i - 1).Copy
.Rows(i).Resize(20).Insert
Application.CutCopyMode = False
End If
End If
Next i
End With
End Sub
Gruß Werner