VBA Leere Zeile einfügen
22.08.2019 10:16:39
Christina
bis jetzt war ich immer nur stille Leserin und habe aus den ganzen Einträgen schon super viel lernen können - danke dafür! :)
Nun verzweifle ich jedoch im Rahmen meiner Masterarbeit und wäre super dankbar, wenn ihr mir weiterhelfen könntet.
Und zwar habe ich eine sehr große Datenmenge (über 600.000 Zeilen) und ich möchte jedes Mal, wenn ein Datum in Spalte D steht, eine leere Zeile dadrüber einfügen. Ich hatte das bei vorherigen Datensätzen mit diesem Code gemacht (das hatte einwandfrei funktioniert), den ich auch hier irgendwo gefunden hatte:
Sub LeereZeile()
Dim i As Long
i = 616000
For i = 616000 To 2 Step -1
If Cells(i, 4) "" Then Rows(i).Insert Shift:=xlUp
Next i
End Sub
Laufzeitfehler '1004': Die Insert-Methode des Range-Objektes konnte nicht ausgeführt werden.
Wenn ich dann einen Blick in die Daten werfe, dann hat er den Code in den untersten Zeilen erfolgreich ausgeführt und dann abgebrochen, obwohl dort nichts anders war.
Um jeden Ratschlag, wie man das beheben könnte, bin ich sehr dankbar!! :)
Liebe Grüße
Christina