Function - Sub

Sub berechnen lassen und die Ergebnisse dann in frei definierten Zellen ausgeben lassen.
Der Quelltext (vereinfacht, aber das gleiche Problem):
Public var1(1 To 10) As Integer
Public zaehler As Byte

Function TEST() As Variant
calc
End Function





Sub calc()
For zaehler = 1 To 10
var1(zaehler) = zaehler * 2
Cells(zaehler, 1) = var1(zaehler)
Next zaehler
End Sub




Wenn ich nur die 

Sub laufen lasse, werden A1 bis A10 mit Daten gefüllt, wenn ich den 

Sub aus der Funktion aufrufen lasse, bricht das Makro ohne Fehlermeldung ab.
Geht es überhaupt, außerhalb von Function-Zellen Werte zurückgeben zu lassen?
Vielen Dank schonmal vorab,
Matthias