einfaches VBA Marko...

[Axel Richter]

Hallo,

WPE = 1
Ich nehme an, das die Variable hier auf 1 gesetzt wird.

*g* Ja.

Bist Du mal gedanklich die Programmschleifen durchgegangen? Ich vereinfache mal:

Referenz = 1
WPE = 1

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]!!
    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
  'Hier ist WPE entweder die Zeile, wo Übereinstimmung gefunden wurde oder die maximale Zeile
  Referenz = Referenz + 1
Loop

Sollte die innere Schleife nicht _immer_ mit WPE=1 beginnen?

viele Grüße

Axel