Spalten vergleichen

25/01/2008 - 17:12 von Holger Nölting | Report spam
Hallo
ich benutze folgenden Code um zu prüfen welche Zahlen von Bereich1 in
Bereich2 vorkommen.

Set Bereich1 = Range("a1:a11000")
Set Bereich2 = Range("b1:b11000")
For Each x In Bereich1
For Each y In Bereich2
If x = y Then x.Offset(0, 4).Value = "OK"
Next y
Next x

leider dauert das oft über eine Stunde bis ich mein Ergebnis habe. Kennt
jemand eine Möglichkeit die Sache zu beschleunigen.

Danke + Gruss
Holger
 

Lesen sie die antworten

#1 Thomas Ramel
25/01/2008 - 17:33 | Warnen spam
Grüezi Holger

Holger Nölting schrieb am 25.01.2008

ich benutze folgenden Code um zu prüfen welche Zahlen von Bereich1 in
Bereich2 vorkommen.

Set Bereich1 = Range("a1:a11000")
Set Bereich2 = Range("b1:b11000")
For Each x In Bereich1
For Each y In Bereich2
If x = y Then x.Offset(0, 4).Value = "OK"
Next y
Next x

leider dauert das oft über eine Stunde bis ich mein Ergebnis habe. Kennt
jemand eine Möglichkeit die Sache zu beschleunigen.



Statt jede Zelle im zweiten Bereich zu prüfen könntest Du pro Wert in
Spalte A einmal zàhlen ob er in Spalte B enthalten ist:

Set Bereich1 = Range("a1:a20") 'Range("a1:a11000")
Set Bereich2 = Range("b1:b20")
For Each x In Bereich1
If Application.WorksheetFunction.CountIf(Bereich2, x) > 0 _
Then x.Offset(0, 4).Value = "OK"
Next x



Mit freundlichen Grüssen
Thomas Ramel

- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2003 SP-2]
Microsoft Excel - Die ExpertenTipps

Ähnliche fragen