Makro zum Zelvergleich
23.05.2002 08:39:30
Jens
(ca. 14000)
In Spalte B stehen auch welche (ca.700)
Problem ist, dass ich nun jede Nummer aus Spalte A mit jeder Nummer aus Spalte B vergleichen muss.
Ist die Nummer aus Spalte A in Spalte B vorhanden, soll in der entsprechenden Zeile in Spalte C "Ja" erscheinen,
ansonsten "Nein".
Mein bisheriger Code, der nur "Nein" liefert, obwohl Übereinstimungen vorhanden sind:
Sub Vergleich()
Dim Zelle As Variant
Dim Testwert As Variant
Dim ZaehlerA As Double
Dim ZaehlerB As Double
For ZaehlerA = 2 To 14000
Testwert = ActiveSheet.Cells(ZaehlerA, 1).Value
For ZaehlerB = 2 To 746
Zelle = ActiveSheet.Cells(ZaehlerB, 2).Value
If Testwert = Zelle Then
ActiveSheet.Cells(ZaehlerA, 3).Value = "Ja"
Else
ActiveSheet.Cells(ZaehlerA, 3).Value = "Nein"
End If
Next ZaehlerB
Next ZaehlerA
End Sub