Zwei Arrays vergleichen
24.01.2017 22:17:04
Anton
ich versuche gerade mehrere Spalten von zwei Arrays miteinander zu vergleichen. Genauer heißt das, die Werte von Spalte 1 und Spalte 2 müssen in beiden Arrays gleich sein. Sobald sich die Werte in Spalte 3 unterscheiden, soll der Wert von Arr2 Spalte 3 in Arr1 Spalte 3 übernommen werden.
Leider werden die Werte im Array1 Spalte 3 nicht übernommen.
Hat jemand vielleicht ein Idee bzw. ist die Herangehensweise wie folgend in Ordnung?
For i = LBound(arr1) To UBound(arr1)
For x = LBound(arr2) To UBound(arr2)
If arr1(i, 1) = arr2(x, 1) And arr1(i, 2) = arr2(x, 2) And arr1(i, 3) arr2(x, 3) _
Then
arr1(i, 3) = arr2(i, 3)
End If
Next x
Next i
Anton
Anzeige