VBA: Zeilen kopieren wird langsamer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
beim Einfügen von Zeilen muss Excel für jede vorhandene Formel prüfen, ob diese Zellbezüge enthält, die von der Verschiebung betroffen sind und angepasst werden müssen.
Je mehr Formeln du hast, um so länger dauert es.
Das kannst du auch nicht ausschalten.
die erste abhilfe wäre, nicht jede Zelle einzeln per Schleife einzufügen, denn dann muss dieser Prozess für jede eingefügte Zeile wiederholt werden, sondern alle Zeilen gleichzeitig am stück, dann macht Excel diesem Job für alle eingefügten Zeilen im Block gemeinsam:
dh aus der For-Next-Schleife zum Einfügen wird:

Rows(r + i).Resize(Anzahl).Insert Shift:=xlDown
Worksheets("Tabelle1").Rows(Zeile).Copy Destination:=Worksheets("Tabelle1").Rows(r + i).Resize(Anzahl)

Gruß Daniel

Sub Zeile_kopieren() Dim Zeile, Anzahl Zeile = 6 'Angabe welche Zeile kopiert werden soll -> Auch möglich: Wert vom Tabellenblatt _ einlesen: Zeile = Worksheets("Tabelle1").Range("A1").Value Anzahl = ActiveCell.Value 'Hier Anzahl der Kopiervorgänge eingeben -> Auch möglich: Wert vom _ Tabellenblatt einlesen: Anzahl = Worksheets("Tabelle1").Range("B1").Value r = ActiveCell.Row Application.ScreenUpdating = False 'Bildschirmaktualisierung ausschalten Application.Calculation = xlCalculationManual 'automat.Berechnung ausschalten Worksheets("Tabelle1").Rows(Zeile).Copy Rows(r + i + 1).Resize(Anzahl).Insert Shift:=xlDown Application.Calculation = xlCalculationAutomatic 'automat.Berechnung einschalten Application.ScreenUpdating = True 'Bildschirmaktualisierung einschalten End Sub

Hallo Daniel,
Vielen Dank!
Habe die Bedienung "wenn 0 oder leer, dann nichts machen" noch selber hinbekommen
Anbei nochmals der aktuelle Code (auch für andere mit einem ähnlichen Problem)

Sub Zeile_kopieren()
Dim Zeile, Anzahl
Zeile = 6 'Angabe welche Zeile kopiert werden soll -> Auch möglich: Wert vom Tabellenblatt  _
einlesen: Zeile = Worksheets("Tabelle1").Range("A1").Value
Anzahl = ActiveCell.Value 'Hier Anzahl der Kopiervorgänge eingeben -> Auch möglich: Wert vom  _
Tabellenblatt einlesen: Anzahl = Worksheets("Tabelle1").Range("B1").Value
r = ActiveCell.Row
If ActiveCell.Value > 0 Then
Application.ScreenUpdating = False 'Bildschirmaktualisierung ausschalten
Application.Calculation = xlCalculationManual 'automat.Berechnung ausschalten
ActiveSheet.Rows(Zeile).Copy
Rows(r + 1).Resize(Anzahl).Insert Shift:=xlDown
Application.Calculation = xlCalculationAutomatic 'automat.Berechnung einschalten
Application.ScreenUpdating = True 'Bildschirmaktualisierung einschalten
Else
End If
End Sub

Gruss
Adrian

Beliebteste Forumthreads (12 Monate)

VBA: Zeilen kopieren wird langsamer

30
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: Zeilen kopieren wird langsamer

30 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

30
Beiträge zum Forumthread

Beiträge zu diesem Forumthread