2 Arrays miteinander vergleichen
03.12.2020 15:09:42
LukasKu
Ich habe ein Problem, dass ich in einer Mappe 2 Tabellen mit vielen Daten (20k Zeilen, 30 Spalten) immer Werte miteinander vergleichen muss.
Dafür wollte ich Arrays benutzen, aus Performance-Gründen. Habe mal in einer Testversion _
folgendes ausprobiert:
Sub Test1()
Dim ZeilenArr(), ZeilenArr2() As Variant
Set wsALT = Worksheets(2)
Set wsNEU = Worksheets(3)
Set wsSTA = Worksheets("Start")
ZeilenArr = wsNEU.Range("A1:AA1").Value
ZeilenArr2 = wsALT.Range("A1:AA1").Value
wsSTA.Range("A1:AA1") = ZeilenArr
wsSTA.Range("A2:AA2") = ZeilenArr2
'MsgBox WorksheetFunction.Match(ZeilenArr(1), ZeilenArr2, 0)
'MsgBox ZeilenArr(0)
End Sub
Weiß leider nicht, wie ich als Code formatieren kann.
Ich will quasi die ganze jeweilige Zeile in ein Array einlesen und dann die Arrays vergleichen. Dann brauche ich die Unterschiedlichen Werte zwischen den Arrays, die ich dann irgendwo auslesen lassen möchte.
Primär gehts mir also um den Vergleich der Werte in den beiden Arrays, habe es in den MsgBoxen unten mal mit dieser .Match-Funktion probiert.
Bei beiden Msgboxen kommt der Fehler "Index außerhalb des gültigen Bereichs"
Gibt es eine performante Lösung 2 Arrays miteiander zu vergleichen?
Vielen Dank und viele Grüße!
Lukas