Herbers Excel-Forum - das Archiv

Makro zum Zelvergleich



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Makro zum Zelvergleich
von: Jens


Geschrieben am: 23.05.2002 - 08:39:30

Hab ne Excel Tabelle wo in Spalte A Vertragsnummern stehen
(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

nach oben   nach unten

Re: Makro zum Zelvergleich
von: Andreas

Geschrieben am: 23.05.2002 - 08:56:37

Hallo Jens,

wenn es unbedingt mit VBA sein muss:

Geht auch ohne, schaue Dir dazu die Funktion ZÄHLENWENN() an!

Viel Spaß,
Andreas

 nach oben