Kopierschleife optimieren
09.01.2015 09:52:21
Paul#235
ich möchte aus einem Bereich in Tabelle 1 Werte in Tabelle 2 kopieren. Einziges Manko, ich möchte nur die Werte kopieren, deren Zellen nicht Orange hinterlegt sind (unterschiedliche Anordnung), Zellen die Orange hinterlegt sind, dürfen nicht kopiert werden, da in Tabelle 2 an dieser Stelle Formeln stehen. Für dieses Szenario hab ich mir eine Schleife geschrieben. Diese braucht jedoch zum Ausführen ca. 10 sec.
Frage: gibt es eine möglichkeit den Code zu optimieren/umzuschreiben sodass die Zeit wesentlich kürzer wird?
Sub kopieren()
Dim rng1 As Range
Dim zeile As Integer
Dim spalte As Integer
For Each rng1 In ThisWorkbook.Sheets("Tabelle1").Range("C142:O275")
If rng1.Interior.Color RGB(250, 191, 143) Then
rng1.Copy
zeile = Range(rng1.Address).Row
spalte = Range(rng1.Address).Column
Sheets("Tabelle2").Cells(zeile - 136, spalte).PasteSpecial xlPasteValues
End If
Next rng1
Application.CutCopyMode = False
End Sub
Grüße Paul