Makros in Excel brauchen unterschiedlich viel Zeit - Zeilen löschen dauert "ewig"

Ich gehe wie folgt vor:
<br />z.B. in Zeile 19250 bis 19280 werden neue Rohdaten eingetragen. Die Werte habe zu der Zeit noch Feldbezeichnungen aber werden noch nicht seitens Tablle2 referenziert. Die je 29 Werte der vier Spalten werden mit dem obigen Makro nach und nach korrigiert. Die Zeilen 1 - 19249 haben in Tabelle2 bereits Referenzen, werden aber von dem Makro nicht bearbeitet.
<br />Anschließend wird die Zeile, die die Feldbezeichnungen denthält durch "Zellen löschen" entfernt. Dies Entfernen dauert u.U. 1 - 2 Minuten.
<br />Anschließend werden die 29 "neuen" Zeilen (die Zeile mit den Felsbezeichenungen wurde ja gelöscht) in den entsprechenden Feldern in Tabelle2 wie eingangs beschrieben referenziert.
<br />

Hallo,
<br />ich denke, es ist einfacher und schneller, wenn du nach den Suchwerten filterst und dann die gefilterten Bereich in einem Rutsch löschst.
<br />Stelle mal deinen Code zur Verfügung.
<br />Claus
<br />

Hallo Elise,
<br />vielen Dank für die Antwort. Auf dem Blatt selbst sind keine Formeln, es enthält nur Rohdaten. Mindestens ein folgendes Blatt (Tabelle2) hat aber Referenzen der Art "=Tabelle1!A2" auf die Tabelle1. In Tabelle2 gibt es dann auch Berechnungen, z.B. =Tabelle1!A2+Tabelle1!B2.
<br />Ebenso gibt es mehrere Pivot-Tabellen deren Datenquelle Tabelle1 ist. Da die aber ja nicht automatisch, sondern nur auf Anfrage aktualisiert werden, würde ich die Pivot-Tabellen als Ursache ausschließen.
<br />

Hallo,
<br />hier ein kleines (unvollständiges) Beispiel für das Ersetzen. Erweitere das Such- und das Ersetzarray mit deinen Angaben:
<br />

Dim varS As Variant

Dim varR As Variant

Dim LRow As Long

Dim i As Integer

varS = Array("TS-5", "Hellcat", "leFH18B2", "Obj.", "Pz. IV H", "VK 100.01 P")

varR = Array("A122 TS-5", "M18 Hellcat", "105 leFH18B2", "Object", "Pz.Kpfw. IV Ausf. H", "VK 100.01 (P)")

With Sheets("Tabelle1")

LRow = .Cells(.Rows.Count, "A").End(xlUp).Row

For i = LBound(varS) To UBound(varS)

.Range("A2:A" & LRow).Replace what:=varS(i), Replacement:=varR(i), lookat:=xlPart

Next

End With

Claus
<br />

Wir verwenden einen Übersetzungsdienst, um unsere Benutzer zu unterstützen. Bitte entschuldigen Sie grammatikalische Fehler.
<br />

Selbst diese einfachen Referenzen und Ergänzungen können das Problem verursachen, ich würde vorschlagen, Berechnungen auf manuell einzustellen, um zu sehen, ob es einen Unterschied macht.

Herzliche Grüße
Elise