Hallo,
habe 3 Tabellen, die ich zusammen führen möchte. Da dies aber mehr als 65.536 Zeilen sind muss ich die Daten vorher komprimieren.
Bin nun soweit, dass ich das Objekt "Scripting.Dictionary" verwende. Brauche nur noch die zündelnde Idee wie ich nicht doppelte Daten einlesen kann.
Habe dies bisher so gelöst:
If Not oDic.Exists(myAr(A, 1)) Then
oDic(myAr(A, 1)) = 0
'nCount = Anzahl in Dictionary
nCount = nCount + 1
' B = Spalte
For B = 1 To UBound(myAr, 2)
'Spalten auch uebernehmen
NewArr(B, nCount) = myAr(A, B)
Next b
End If
Nur soll nicht nur geprüft werden, ob der erste Wert (myAr(A,1)) vorhanden ist, sondern die Kombinationion aus Wert myAr(A,1) + myAr(A,22) + myAr(A,23).
Kann man irgendwo auslesenlassen, wo der Wert gefunden wird nach dem Motto:
1. Gibt es myAr(A,1)?
2. Wenn ja ist myAr(A,22) gleich?
3. Wenn auch ja, ist myAr(A,23) auch gleich, dann nicht berücksichtigen.
Vielen Dank!