Fehler: Next ohne For
27.01.2005 12:49:38
Andy
Ich weiß, einen ähnlichen Thread gab's hier schon einmal, doch die Antwort hat mir bei meinem Problem nicht weitergeholfen.
Folgender Code liefert den Fehler:
For iRuleIdx = LBound(m_RulesArray) To UBound(m_RulesArray)
bFound = False
For Each vntParam In m_objParamDict
If (vntParam = m_RulesArray(iRuleIdx)(CFG_RULE)) Then
bFound = True
Exit For
End If
Next
If (Not bFound) Then
Print #hLogFile, vntParam & "... not found"
Next iRuleIdx
End If
'hier tu was...
Next
Es wird ohne Murren kompiliert, wenn ich die Zeile "Next iRuleIdx" entferne. Aber ich will beim nächsten Schleifenschritt weitermachen und nicht die Anweisungen nach dem Kommentar ausführen. Klar könnte ich das auch mit einem "else" erledigen, aber mir geht's hier gerade ums Prinzip. Ich muss doch eine Schleife abbrechen können in VBA, oder??
Danke im Voraus für Hilfe!