gleich zu beginn... ich bin Array Neuling.
Ich habe zwei Listen, eine mit 300.000 Datensätzen, die andere mit 1.000 Datensätzen. Ich muss nun jeden Wert der einen, mit jedem der anderen Liste Vergleichen. SVERWEIS hab ich probiert. Das funktioniert auch .... dauert aber.
Die Idee war nun das ganze durch die Arbeit mit Array zu beschleunigen. Habe mir dazu im Forum schon einige Sachen zusammen gesucht. Nun bekomme ich aber einen Fehler Überlauf ... Das schein wohl daran zu liegen das das Array 300.000 Datensätze enthält. Mein Versuch das in 10 Arrays mit je 30.000 Daten aufzusplitten funktioniert auch, aber dauert nun genau so lange, wie der SVERWEIS.
Hat jemand eine andere Idee wie ich hier vorgehen könnte ?
Danke
Sub ArrayVergleich()
Dim IntX As Integer, IntY As Integer
ArrayA1 = Sheets("Originaldaten").Range("A1:L300000").Value
ArrayB = Sheets("Tabelle4").Range("D1:D1000").Value
For IntX = LBound(ArrayA1) To UBound(ArrayA1)
For IntY = LBound(ArrayB) To UBound(ArrayB)
If ArrayA1(IntX, 1) = ArrayB(IntY, 1) Then ArrayB(IntY, 1) = ArrayA1(IntX, 10)
Next
Next
Sheets("Tabelle4").Range("H1:H1000") = ArrayB
End Sub