For each Next-Schleife Fehler 2042
09.06.2004 16:44:11
Matthias
ich habe ein wahrscheinlich einfaches Problem, was ich jedoch selbst nicht lösen kann:
Sub test()
Set DatenBereich = Range("Kurse")
For Each zelle In DatenBereich
Debug.Print DatenBereich.Address, zelle
If IsError(zelle) or zelle = 0 Then
MsgBox "Die Kursdaten sind nicht korrekt. Abbruch."
End If
Next
End Sub
Es wird ein Laufzeitfehler 13 mit der Fehlernummer 2042 angegeben.
Vielen Dank für einen Tip.
Matthias
Anzeige