einfaches VBA Marko...

[Axel Richter]

Hallo,

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.

Ich rate mal, dass es sich um ein EXCEL-Problem handelt.

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) <> ""

'läuft in "Referenz-PISA" von A[Referenz] bis Ax, solange A[Referenz] nicht leer

found = False

Do While Worksheets("WPE").Cells(WPE, 1) <> ""

'läuft in "WPE" von A[WPE] bis Ax, solange A[WPE] nicht leer. !!Beginnt in A[WPE]!!

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

'Ende, wenn gefunden mit WPE=x

End If
            WPE = WPE + 1

'Durchlauf bis A[WPE] leer.

Loop

Schau Dir mal an, wo die Variable WPE auf 1 gesetzt wird, un wo sie es werden müsste.

viele Grüße

Axel