in meiner Tabelle sind die Zellen einer Spalte mit mehreren, immer in der gleichen Reihenfolge wiederkehrenden Werten (text) gefüllt. Nun möchte ich, dass vor einem bestimmten Wert in der gesamten Tabelle Leerzeilen eingefügt werden.
Dazu habe ich folgenden Code geschrieben, der soweit auch funktioniert:
Sub LeerzeileEinfügen()
Dim i As Integer
For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(i, 3).Value = "Unterkunft" Then
Rows(i + 1).Insert
End If
Next i
End Sub
Das Problem ist, dass nicht die gesamte Spalte gefüllt wird. Am unteren Ende werden einfach keine Leerzeilen eingefügt und ich habe keine Ahnung, woran das liegt.
Kann mir jemand weiterhelfen?
Grüße
Ingo
Hier die Datei: https://www.herber.de/bbs/user/74873.xls