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

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.

Hi, ich habe deinen Code trotzdem mal eingebaut und die zeile.
Code:

geändert in:
Code:

Funktioniert Super.
Das löschen ist dadurch sehr stark beschleunigt.
Warum musste es eigentlich H102:H sein?

Wenn jetzt noch das kopieren schneller ging wäre es super

 

Hi Maddy

Alternative: Mit Application.Index in folgendem Code werden Spalten 1, 2, 4, 5 des Kopierbereiches rüber kopiert, nachdem der Einfügebereich gelöscht wurde (wenn ich mich nicht geirrt habe).

Code:

Jedenfalls geht Dein Code bei mir so schnell, dass das Ergebnis mein Auge früher erreicht als das Klick des auslösenden Mausbefehls mein Ohr, also keine 20 Sekunden. Da liegt es an was anderem, und nicht am Code, schätze ich. Versuch doch mal dahingehend nach einer Lösung und nicht nach einem schnelleren Code.

LGB

 

Jedenfalls geht Dein Code bei mir so schnell, dass das Ergebnis mein Auge früher erreicht als das Klick des auslösenden Mausbefehls mein Ohr, also keine 20 Sekunden. Da liegt es an was anderem, und nicht am Code, schätze ich. Versuch doch mal dahingehend nach einer Lösung und nicht nach einem schnelleren Code.

LGB

Hallo Barbara,

hast Du auch meine 2.tabelle mit den Formeln ausprobiert?
Ich habe Deinen Code mal getestet.
Dann löscht er mir aber die Formeln ab Spalte G in Sheet(3).
Deswegen darf ich auch nicht die zeilenüberschriften aus Sheet(1) mit kopieren in Sheet(3).
Die 1. zeile in Sheet(3), also Zeile 101 muss erhalten bleiben wegen den Formeln.

Hier nochmal die Test Mappe mit Formeln auf Sheet(3)

 

*grins

 

Weil in Deinem ersten Code auch die Spalte H auf Inhalt geprüft wurde:

 

Uih, dann war das ein Fehler von mir

 

Aber Achtung! Diese Lösung wird wieder langsam, wenn es sich um viele Zeilen handelt, die nicht zusammenhängend sind.

 

In deinem Beispiel sind keine leeren Zellen in Spalte C, so dass alle Zeilen bis zur Überschrift gelöscht werden. Ist das immer so?

 

Nein, darüber sind noch andere Werte und ein Diagramm was dynamisch gesteuert wird anhand der Tabelle wo mal Zeilen gelöscht und wieder rein kopiert werden.
Ich versuche heute mal die Original Arbeitsmappe soweit abzuspecken, das ich sie hochladen kann.
Kann aber gegen Mittag werden.

 

eins der schnellsten Verfahren zum Löschen vieler nichtzusammenhängender Bereiche ist:

1) Hilfsspalte mit Zeilennummern anlegen (Konstanten, nicht Formeln)
2) Sortieren nach dem Löschkriterium
3) Feststellen der ersten und letzten Zeile mit dem Löschkriterium
4) Löschen des gesamten Blockes
5) Sortierung aus 1) wiederherstellen und Hilfsspalte löschen.

Schritte 1 und 5 können entfallen, wenn die Sortierung nicht relevant ist.

Umsetzen mag ich das aber nicht, solche Codes findet man schon fertig, wenn man danach sucht.

 

Hi,

Das wird wohl an der falschen Referenzierung liegen:

With Worksheets("Tabelle3")

Ist denn Tabelle3 diejenige welche? Vermutlich gibt es die in Deiner Originaldatei nicht....

 

Oh, ich Depp. Stimmt sie heißt dort anders
Danke für den Hinweis