Übergabe Datenfeld
04.11.2002 12:19:13
Markus
kann mir emand sagen, warum der Code nicht funktioniert, wenn ich ihn in einem Tabellenblatt einsetze? Aufruf über Funktionsmanager mit: array_macro(A1:A5), in den Zellen stehen verschiedene Zahlenwerte.
Public Function array_macro(arr())
Dim var
Dim x
x = 0
For Each var In arr()
x = x + var
Next var
array_macro = x
End Function
Anzeige