Wie kann ich denn in diese Zeilen die ich da einfüge Abschnitttrennlinien (-------------) eingeben?
Merci für die Hilfe!
Sub Abstandszeile_einfügen()
Dim k As Integer
For k = 1 To Range("A65536").End(xlUp).Row
If Range("A" & k).Value = "Other data=" Then Rows(k + 1).Insert
If Range("A" & k).Value = "name=" Then Rows(k + 1).Insert
Next k
End Sub