Sub Leerzeilen()
dim i as long
for i= Range("F65536").end(xlup).row to 1 step -1
if lcase(Cells(i,6).value)="x" then
rows(i).insert xlshiftdown
end if
next i
End Sub
Um eine leerzeile in Excel einfügen zu können, die über jeder Zeile mit einem "X" in Spalte F steht, kannst Du das folgende VBA-Makro verwenden:
Drücke Alt + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
Kopiere und füge den folgenden Code in das Modul ein:
Sub Leerzeilen()
Dim i As Long
For i = Range("F65536").End(xlUp).Row To 1 Step -1
If LCase(Cells(i, 6).Value) = "x" Then
Rows(i).Insert Shift:=xlDown
End If
Next i
End SubSchließe den VBA-Editor und gehe zurück zu Excel.
Drücke Alt + F8, wähle Leerzeilen aus und klicke auf Ausführen.
Dieses Makro durchsucht die Spalte F nach "X" und fügt automatisch eine leerzeile über jeder gefundenen Zeile ein.
Fehler: Das Makro macht nichts.
Fehler: Das Makro funktioniert nur bei einer bestimmten Excel-Version.
Wenn Du kein Makro verwenden möchtest, kannst Du auch die Funktion "Suchen und Ersetzen" nutzen, um eine leere Zeile einzufügen:
Start > Ersetzen (oder drücke Strg + H).Ersetzen und füge manuell Leerzeilen ein, wo nötig.Für größere Datenmengen ist das Makro jedoch die effizientere Methode.
Beispiel 1: Angenommen, Du hast die folgenden Werte in Spalte F:
F1: A
F2: X
F3: B
F4: XNach dem Ausführen des Makros sieht es so aus:
F1: A
F2:
F3: X
F4:
F5: B
F6:
F7: XBeispiel 2: Bei einer großen Tabelle mit mehreren Tausend Zeilen kann das Makro erheblich Zeit sparen, da es automatisch alle notwendigen Leerzeilen einfügt.
1. Wie kann ich mehrere Leerzeilen auf einmal einfügen?
Das Makro fügt automatisch eine Leerzeile über jeder Zeile mit „X“ ein, so dass Du nicht manuell mehrere Leerzeilen einfügen musst.
2. Funktioniert das auch in Excel Online?
Leider unterstützt Excel Online keine VBA-Makros. Du musst die Desktop-Version verwenden, um das Makro auszuführen.