Supportnet Computer
Planet of Tech

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