Range als Rückgabewert???
07.01.2004 14:55:25
Ulrich
ich möchte einen Range als Eingabe einer Funktion
und nach Bearbeitung der Werte wieder zurückgeben.
(Anwendung: =ZÄHLENWENN(test(A1:A6);"=1"))
Mein erster Versuch war wie folgt:
Function test(ByVal ArrayIn As Range) As Range
Dim element As Range
For Each element In ArrayIn
ArrayIn.Value2 = 1 'an Stelle von 1 Berechnung einfügen
Next element
test = ArrayIn
End Function
Jedoch bekomme ich einen Fehler(1004) bei "ArrayIn.Value2 = 1".
Kann mir jemand auf die Sprünge helfen, was ich falsch mache?
Danke,
Ulrich.
Anzeige