Office: (Office 2016) Löschen von Zeilen und anschließendes Kopieren dauert lange

Hallo, kann mir einer helfen den abgebildeten Code zu optimieren?

Wenn der Code durchläuft dauert es gefühlt 20 Sekunden bis er fertig ist.
Und das bei höchstens 20 Zeilen.

Was macht der Code:
Zunächst ermittelt er die letzte beschriebene Zeile in Spalte C im Sheet(3) und löscht alle Zeilen rückwärts bis Zeile 101.

Nun springt er in die Sub Routine kopieren:
Dann ermittelt er die letzte Zeile in Sheet(1) Spalte B
Nun kopiert er den Inhalt in Spalte A ab Zeile 3 von Sheet(1) nach Sheet(3) in Spalte C ab Zeile 101
Das gleiche mit den Inhalten von Spalte D, E und F auf Sheet(1)

Code:

Wäre Super wenn mir jemand bei der Routine weiterhelfen könnte, das der Code seine Arbeit schneller verrichtet.
Gruß
Maddy

:)

 

Benutze doch den Autofilter und arbeite mit Wertzuweisungen anstatt .Copy, sofern Dich lediglich die Werte und nicht noch Formate interessieren.

Keep it simple

 

Was mit Sicherheit einen Geschwindigkeitsgewinn bringt:
1) Screenupdating ausschalten
2) Autofilter statt zeilenweisem Löschen

Was macht
Code:

was nicht auch
Code:

macht?

 

Hallo,

man könnte auch darüber nachdenken, die Daten in ein Array zu lesen, das man zeilenweise abarbeitet. Zwei weitere Arrays nehmen dann die zu kopierenden und die zu behaltenden Daten auf, die dann entsprechend in die Tabellen eingefügt werden.

EDIT: Eine Beispieldatei mit ein paar Dummy-Datensätzen wäre hilfreich.

 

Uih, danke für die Antworten.

Aber jetzt weiß ich gar nichts mehr.

Mit Autofilter arbeiten??? Aber in den Zeilen oberhalb von Zeile 101 stehen ja auch Werte. Die sollen ja nicht angefasst werden.

Screenupdating habe ich schon abgeschaltet.

leider bin ich VBA Anfänger und manches kapiere ich einfach noch nicht

 

Mach doch mal eine Beispieldatei mit ein paar (nicht zu wenigen) Dummy-Daten.

 

Kommt gleich

 

Beim Löschen habe ich noch eine andere Idee (funktioniert aber nur, wenn in der Spalte H Werte stehen und keine Formeln):
Code:

Ergänzung: Das dürfte aber bei vielen nicht zusammenhängenden zu löschenden Zeilen relativ langsam sein (wie beim Autofilter aber auch). Daher würde ich das ganze lieber in ein Array packen.

 

Hallo Maddy55

z.b. Zeilen löschen!

PHP:

         Sub Zeilen_Löschen()
Application.DisplayAlerts = False
With Worksheets("Tabelle3")
.Range("C102:C" & .Range(.Cells(Rows.Count, 3), .Cells(Rows.Count, 3)).End(xlUp).Row).AutoFilter Field:=1, Criteria1:="<>" & ""
.AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Rows.Delete
.Range("C102").AutoFilter
End With
Application.DisplayAlerts = True
End Sub


 

Jetzt verstehe ich gar nichts mehr.
Habe nun eine Testmappe gebastelt, Sheet(1) und (3) genau so gefüllt wie im Original, und nun läuft der Code nicht mehr
???????????????

 

Ergänzung: Das dürfte aber bei vielen nicht zusammenhängenden zu löschenden Zeilen relativ langsam sein (wie beim Autofilter aber auch). Daher würde ich das ganze lieber in ein Array packen.

Leider stehen in Spalte H Formeln

 

Die zu löschenden Zeilen werden anhand der Spalte H ausgewählt. Da steht aber nichts drin. Ist der Aufbau wirklich identisch zum Original?

In Deiner Beispieldatei nicht ;-)

 

nein in der beispieldatei habe ich das nicht drin.
Moment ändere ich mal ab.....

 

So jetzt mit Formeln