mehre Zeilen automatisch einfügen

[Peter]

Hallo,

wenn ich dein Vorhaben richtig verstanden habe dann ersetze mal in meinem Code diese Zeilen:

If Cells(lngRow, 3).Value <> Cells(lngRow - 1, 3).Value And _
Not IsEmpty(Cells(lngRow, 3)) And Not IsEmpty(Cells(lngRow - 1, 3)) Then _

[ExcelSpaß]

Hallo Peter,

super, vielen Dank dafür! 

Ihr seid großartig!

Einen schönen Tag noch...

Sebastian