ich habe eine Exceldatei, in die ich Daten per copy und paste in den Bereich von Spalte D bis LZ einfüge (ab Zeile 21) und in den Folgespalten eine Menge Werte über verschiedene Formeln berechne. Da die Datei aufgrund der Datenmengen schnell behäbig wird, möchte ich über ein Makro immer nur so viele Zeilen mit Formeln haben, wie ich auch jeweils im Datensatz habe (ich berechne jeweils für einen Datensatz).
Die Datensätze haben zwischen 200 und 20.000 Zeilen.
Ich habe bereits ein Makro (s. unten), mit dem ich neue Zeilen inkl. Formeln einfügen kann, allerdings stürzt Excel jedesmal ab, wenn ich versuche, mehr als 1.000 Zeilen einzufüge :-(
Kann mir da vllt jemand helfen...?
Vielen Dank schon mal im voraus!!
Sub ZeilenEinfügenUndFormelnBehalten()
Application.ScreenUpdating = False
Dim anzahlZeilen, EinfuegenAbZeile, ZeileKopieren As Integer
anzahlZeilen = InputBox("Wieviele Zeilen sollen eingefügt werden?")
Range("D21:LZ21").Clear
ZeileKopieren = InputBox("Welche Zeile soll kopiert werden?", , 21)
EinfuegenAbZeile = InputBox("An welcher Stelle sollen die Zeilen eingefügt werden?", , 21)
For i = 1 To anzahlZeilen
Rows(EinfuegenAbZeile).Insert Shift:=xlDown
Next
Rows(ZeileKopieren).Copy
For i = 1 To anzahlZeilen
Rows(EinfuegenAbZeile + i - 1).PasteSpecial xlPasteFormulas
Next
End Sub