Code optimierung
02.07.2020 10:19:28
Martin
besteht die Möglichkeit folgenden Code schneller zu machen?
Der Code gleicht vergleicht jeweils mehrere Zellen pro spalte der aktuellen Tabelle mit mehreren Zellen pro Spalte der Tabelle1 um eine Übereinstimmung zu finden. Es werden für eine vollständige Übereinstimmung jeweils alles verglichenen Werte benötigt.
Aktuell muss ich für einen Durchlauf mehrere Minuten warten. (Zeilenzahl entspricht aktuell 1800)
Des weitern würde mich interessieren, ob ich ähnlich wie bei "Zeilenzahl=Selection.CurrentRegion.Rows.Count"
die Zeilenzahl der Tabelle1 (912) bestimmen kann?
Ich bedanke mich schon mal im Voraus.
Viele Grüße
Martin
Sub proof()
Dim Zeilenzahl As Integer
Range("A1").Select
Zeilenzahl = Selection.CurrentRegion.Rows.Count
For i = 1 To Zeilenzahl
For k = 1 To 912
If Range("C" & i) = Worksheets("Tabelle1").Range("A" & k).Value _
And Range("D" & i) = Worksheets("Tabelle1").Range("B" & k).Value _
And Range("F" & i) = Worksheets("Tabelle1").Range("C" & k).Value _
And Worksheets("Tabelle1").Range("J" & k) "" _
Then Range("H" & i) = Worksheets("Tabelle1").Range("J" & k).Value
Range("I" & i) = Worksheets("Tabelle1").Range("O" & k)
Range("I" & i).NumberFormat = "m/d/yyyy"
Next k
Next i
End Sub