einfaches VBA Marko...

[iona]

hi leute,

habe folgendes problem:
Im Feld 1 "Referenz-PISA befinden sich AHV-Nr.
Im Feld 2  "WPE" befinden sich auch AHV-Nr.

Ist nun eine AHV-Nr. vom Feld 1 im Feld 2 nicht vorhanden, soll dies im Feld 3 "nicht WPE" ausgegeben werden.

Sub Vergleichen()
    Dim Referenz, WPE, nichtWPE As Integer
    Dim found As Boolean

Referenz = 1
    WPE = 1
    nichtWPE = 1

Dim a, b As String

Do While Worksheets("Referenz-PISA").Cells(Referenz, 1) <> ""
        found = False

Do While Worksheets("WPE").Cells(WPE, 1) <> ""
            a = Worksheets("Referenz-PISA").Cells(Referenz, 1)
            b = Worksheets("WPE").Cells(WPE, 1)
            If Worksheets("Referenz-PISA").Cells(Referenz, 1) = Worksheets("WPE").Cells(WPE, 1) Then
              found = True
              Exit Do
            End If
            WPE = WPE + 1
        Loop

If Not found Then
            Worksheets("nichtWPE").Cells(nichtWPE, 1) = Worksheets("Referenz-PISA").Cells(Referenz, 1)
            Worksheets("nichtWPE").Cells(nichtWPE, 2) = Worksheets("Referenz-PISA").Cells(Referenz, 2)
            Worksheets("nichtWPE").Cells(nichtWPE, 3) = Worksheets("Referenz-PISA").Cells(Referenz, 3)
          nichtWPE = nichtWPE + 1
        End If
        Referenz = Referenz + 1
    Loop

Worksheets("nichtWPE").Select
    MsgBox "Vergleich Abgeschlossen"

End Sub

hoffe habe gegen keine FAQ verstossen;)

thanks...