Kolommen vergelijken

[Anton]

Graag zou ik 2 kolommen in Excel vergelijken.
Kolom A is de basis, dan moet er gekeken worden of de waarden die in kolom A
staan, ook voorkomen in kolom B (hele kolom afzoeken).
De waarden (getallen) die niet voorkomen, bijvoorbeeld weergeven in een
nieuw werkblad of op hetzelfde werkblad.

Kan iemand mij hiermee helpen?

gr. Anton

[Wigi]

Met de AANTAL.ALS functie kan je checken hoeveel keer iets voorkomt in een
bereik. Test of dit 0 geeft of >0.

Dan kan je op die kolom met uitkomsten een autofilter of uitgebreide filter
zetten en zodoende filteren en/of kopiëren.
--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music

Post by Anton
Graag zou ik 2 kolommen in Excel vergelijken.
Kolom A is de basis, dan moet er gekeken worden of de waarden die in kolom A
staan, ook voorkomen in kolom B (hele kolom afzoeken).
De waarden (getallen) die niet voorkomen, bijvoorbeeld weergeven in een
nieuw werkblad of op hetzelfde werkblad.
Kan iemand mij hiermee helpen?
gr. Anton

[r***@hotmail.com]

Post by Anton
Graag zou ik 2 kolommen in Excel vergelijken.
Kolom A is de basis, dan moet er gekeken worden of de waarden die in kolom A
staan, ook voorkomen in kolom B (hele kolom afzoeken).
De waarden (getallen) die niet voorkomen, bijvoorbeeld weergeven in een
nieuw werkblad of op hetzelfde werkblad.
Kan iemand mij hiermee helpen?
gr. Anton

Je zou ook een macro kunnen gebruiken. In het hierna volgend voorbeeld
worden de waarden uit kolom A die niet voorkomen in kolom B in kolom C
geplaatst.
In dit voorbeeld ben ik ervan uitgegaan dat de gegevens beginnen in A1
voor kolom A en B1 voor kolom B. Indien bij u de gegevens in A5
beginnen ipv A1, verander dan a=1 in a=5 (hetzelfde geldt voor b=1 in
b=5 en c=1 in c=5)

----------------------------------begin
code------------------------------------
Sub KolommenVergelijken()

Dim a As Integer, b As Integer
a = 1
b = 1
c = 1

Do
Do
If Range("A" & a) = Range("B" & b) Then
b = 1
a = a + 1
Else:
b = b + 1
End If
Loop Until Range("B" & b) = ""
Range("C" & c) = Range("A" & a)
c = c + 1
a = a + 1
Loop Until Range("A" & a) = ""
End Sub
-------------------------einde code------------------------------

Veel excel-genot,
Ronny

[r***@hotmail.com]

Post by r***@hotmail.com

Post by Anton
Graag zou ik 2 kolommen in Excel vergelijken.
Kolom A is de basis, dan moet er gekeken worden of de waarden die in kolom A
staan, ook voorkomen in kolom B (hele kolom afzoeken).
De waarden (getallen) die niet voorkomen, bijvoorbeeld weergeven in een
nieuw werkblad of op hetzelfde werkblad.
Kan iemand mij hiermee helpen?
gr. Anton

Je zou ook een macro kunnen gebruiken. In het hierna volgend voorbeeld
worden de waarden uit kolom A die niet voorkomen in kolom B in kolom C
geplaatst.
In dit voorbeeld ben ik ervan uitgegaan dat de gegevens beginnen in A1
voor kolom A en B1 voor kolom B. Indien bij u de gegevens in A5
beginnen ipv A1, verander dan a=1 in a=5 (hetzelfde geldt voor b=1 in
b=5 en c=1 in c=5)
----------------------------------begin
code------------------------------------
Sub KolommenVergelijken()
    Dim a As Integer, b As Integer
    a = 1
    b = 1
    c = 1
    Do
        Do
            If Range("A" & a) = Range("B" & b) Then
                b = 1
                a = a + 1
                b = b + 1
            End If
        Loop Until Range("B" & b) = ""
        Range("C" & c) = Range("A" & a)
        c = c + 1
        a = a + 1
    Loop Until Range("A" & a) = ""
End Sub
-------------------------einde code------------------------------
Veel excel-genot,
Ronny

Ik heb zonet nog iets meer getest en het loopt toch niet helemaal
goed. Ik moet morgen vroeg uit de veren dus het vervolg zal voor
morgen zijn. Sorry
Ronny

[r***@hotmail.com]

Post by Anton
Graag zou ik 2 kolommen in Excel vergelijken.
Kolom A is de basis, dan moet er gekeken worden of de waarden die in kolom A
staan, ook voorkomen in kolom B (hele kolom afzoeken).
De waarden (getallen) die niet voorkomen, bijvoorbeeld weergeven in een
nieuw werkblad of op hetzelfde werkblad.
Kan iemand mij hiermee helpen?
gr. Anton

Dit zou het uiteindelijk toch moeten zijn:
--------begin code-------------
Sub KolommenVergelijken()

Dim a As Integer, b As Integer, c As Integer
a = 1
b = 1
c = 1

Do
Do
If Range("A" & a) = Range("B" & b) Then
b = 1
a = a + 1
Else:
b = b + 1
End If
Loop Until Range("B" & b) = ""
Range("C" & c) = Range("A" & a)
c = c + 1
a = a + 1
b = 1
Loop Until Range("A" & a) = ""
End Sub
--------------einde code----------------

Veel excel-genot,
Ronny