Nochmal hallo,
bin schon etwas weiter, habe folgenden Code:
Set ws = ThisWorkbook.Worksheets(25)
zeile = 9
Do Until IsEmpty(ws.Cells(zeile, 18))
If ws.Cells(zeile, 18) ws.Cells(zeile + 1, 18) Then
ws.Rows(zeile + 1).Insert
zeile = zeile + 1
End If
zeile = zeile + 1
Loop

Range("A1").Select

End Sub
Nun möchte ich statt einer zwei Zeilen eingefügt haben, komm nicht drauf! Bitte um Hilfe!
Danke und einen schönen Abend!
Gruß
Heinz