Hallo Hajo,
danke für deine Tipps, aber ich kriege das nicht so hin, dass mir der Schleifenstatus irgendwo angezeigt wird. Es gibt keinen Fehler aber auch keine Anzeige...
...
For lngI = 1 To UBound(vVal, 1) - 1
Application.StatusBar = lngI
If Not IsNumeric(Application.Match(vVal(lngI, 1), vRes, 0)) Then
....