Supportnet / Forum / Tabellenkalkulation
Zeile einfügen über einen bestimmten Wert
Frage
Guten Morgen
Hoffe ihr könnt mir weiter helfen.
Ich will über einen bestimmten Wert eine Leerzeile einfügen.
Habe auch schon einen passenden Beitrag gefunden, wo allerdings eine Leerzeile unter einem bestimmten Wert eingeführt wird.
Sub Leerzeilen_einfügen()
Dim Wiederholungen As Long
Application.ScreenUpdating = False
For Wiederholungen = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(Wiederholungen, 1) = "Leerzeile einfügen" Then
Rows(Wiederholungen + 1).Insert Shift:=xlDown
End If
Next
End Sub
Was müsste ich an dem Makro ändern um mein beschriebenes Problem zu lösen?
Vielen Dank schon mal im vorraus.
Gruß
Rudi
Antwort 1 von nighty
hi all
statt +1
-1
gruss nighty
statt +1
-1
gruss nighty

