Zuweisung klappt nicht
08.01.2004 08:44:07
Ulrich
kann mir jemand sagen, weshalb im nachfolgenden VBA-Code
die Zuweisung "element.Value2 = 1" mit Anwendungs- oder
objektdefinierter Fehler (Fehlernummer 1004) endet?
Function GanzWerte(ByVal ArrayIn As Range) As Range
Dim element As Range
Dim antwort As Integer
On Error GoTo ErrorHandler:
For Each element In ArrayIn
element.Value2 = 1 'an Stelle von 1 Berechnung einfügen
Next element
Set GanzWerte = ArrayIn
Exit Function
ErrorHandler:
antwort = MsgBox(Err.Description & " " & Err.Number, 0, "Error")
Set GanzWerte = ArrayIn
End Function
Vielen Dank
Ulrich
Anzeige