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