Das versuche ich mit nachfolgendem Code, aber es funktioniert nicht.
Kann mir bitte jemand helfen.
Danke.
Gruß Peter
Sub Text()
lz = Cells(Rows.Count, 1).End(xlUp).Row
For i = lz To 1 Step -1
If Cells(i, 1) Cells(i - 1, 1) Then
Rows(lz).Insert ' Shift:=xlUp
End If
Next i
End Sub