Ich habe eine Tabelle, wo in Spalte in unregelmäßigen Abständen das Wort Konto vorkommt. Überal, wo das Wort in Spalte A vorkommt, soll darüber automatisch eine Leerzeile eingefügt werden. Wie kann ich das machen? Danke
Chris
Sub ZeilenEinfügen()
Dim lz&, i&
lz = Cells(Rows.Count, 1).End(xlUp).Row
For i = lz To 1 Step -1
If Cells(i, 1).Value = "Konto" Then _
Cells(i, 1).EntireRow.Insert
Next i
End Sub