Tabellen vergleichen
26.05.2008 18:40:24
Felix
ich habe mal eine Frage. Ich habe zwei Spalten in einer sind ca. 13000 Namen, in der anderen 4000 Namen. Ich möchte jetzt hingehen und hinter jeden der 4000 Namen eine 1 machen, wenn er auch in der 13000er Liste ist, ansonsten eine 0.
Das Ganze würde ich gerne in VBA-Format machen. Ich habe es mit folgendem Ansatz probiert. Das Ganze klappt aber nicht wirklich und ist sehr kompliziert "programmiert". Kann mir einer helfen?
Sub testx()
Dim eingabe(13000) As Variant
Dim ausgabe(4000) As Variant
Set beg = Cells(1, 1)
ninput = Cells(1, 1).CurrentRegion.Cells.Count
noutput = Cells(1, 2).CurrentRegion.Cells.Count
'Einlesen der Werte in Array
For i = 1 To ninput
eingabe(i) = beg.Offset(i - 1, 0).Value
Next
For i = 1 To noutput
ausgabe(i) = Cells(1, 6).Offset(i - 1, 0).Value
Next
' Vergleich der Arrays
For i = 1 To noutput
For a = 1 To ninput
If ausgabe(i) = eingabe(a) Then Cells(i, 3).Value = 1
End
Next
Next
End Sub
Wie kann ich es vor allem erreichen, dass ich bei den Arrays nicht vorher definieren muss, wie lang die sind? Das ist ja relativ unflexibel.
Vielen Dank
Felix