ich möchte eine Funktion schreiben, die ein Array zurückgibt. Folgender Quelltext ist dabei fehlerhaft. Geht das in VBA überhaupt?
Vielen Dank schonmal!
Sub Aufruf ()
Dim BeispielArray()
Redim Preserve BeispielArray(10)
Set BeispielArray = BeispielFunction(10)
End Sub
Function BeispielFunction (Zahl)
Dim vrz()
Redim Preserve vrz(Zahl)
For i = 1 to Zahl
vrz(i) = i
Next i
BeispielFunction = vrz
End Function