einfaches VBA Marko...

[iona]

Lady am verzweifeln...

danke zuerst dass du dich solange darum kümmerst!!
finde ich echt toll!

Ich bin zwar schon seit heute morgen an diesem Problem aber kann es einfach nicht lösen! habe einfach zuwenig erfahrung mit vba!

mittlerweilen sieht mein code wiefolgt aus: (funktiert leider noch nicht)

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

Referenz = 1
    nichtWPE = 1

Dim a, b As String

Do While Worksheets("Referenz-PISA").Cells(Referenz, 1) <> ""
        found = False
        WPE = 1
        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
        Referenz = Referenz + 1
    Loop

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

End Sub