Hallo Excel-Gurus,
mal wieder verstehe ich mein Excel nicht. Habe in einem Modul eine Sub. Darin enthalten ist u.a. folgende Schleife:
Do While ActiveCell() ""
If IsError(WorksheetFunction.VLookup(ActiveCell.Value, _
Worksheets("Mandanten").Range("B2:F10"), 5, 0)) Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Die Schleife funktioniert prima. Lagere ich jetzt jedoch diesen Teil in eine andere Sub aus, so passiert beim Aufruf folgendes:
Existiert der zu suchende Wert im angegebenen Bereich, läuft die Schleife weiter. Enthält ActiveCell.Value jedoch eine Ausprägung, die im zu durchsuchenden Bereich nicht vorhanden ist, so springt das Programm sofort aus der IF-Schleife aus und fährt fort an der Stelle, wo die Unterprozedur aufgerufen wurde.
Hat jemand eine Idee, wieso der Code ausgelagert in einer Unter-Sub nicht mehr läuft wie vorher ?
Vielen Dank im voraus und Gruss
eres