Microsoft Excel

Herbers Excel/VBA-Archiv

Leerzeile einfügen

Betrifft: Leerzeile einfügen von: Fabienne
Geschrieben am: 31.08.2004 15:31:02

Hallo!

Ich möchte gerne dass mein Makro immer nach der Zeile 'other data' eine Leerzeile einfügt. Da die Zeilen mit 'other data' nicht in regelmässigen Abständen vorkommen funktioniert mein Code nicht.

Kann mir jemand sagen wie ich ihn abändern muss? Danke schon im Voraus!


Sub Abstandszeile_einfügen()
    For k = 1 To 500
    k = k + 95
    Range("A" & k).Select
Selection.EntireRow.Insert
Next k
End Sub

  


Betrifft: AW: Leerzeile einfügen von: Roland Hochhäuser
Geschrieben am: 31.08.2004 15:50:09

Hallo Fabienne,
sobald in Spalte A other data auftaucht, gibts eine Leerzeile:
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
Next k
End Sub

Gruß
Roland


 

Beiträge aus den Excel-Beispielen zum Thema "Leerzeile einfügen"