Übergabe eines Feldes an eine Funktion

[sotaros]

Hallo Leute,

ihr könnt mir sicherlich weiterhelfen. Ich habe folgendes Problem:

Code:

Sub Feld()

Dim fFeld(5) As Variant, i as Integer
For i = 1 To 5
fFeld(i) = Chr(i + 64)
Next i

empfang (fFeld ????)
End Sub

Function empfang(????)
'Hier Code für Weiterverarbeitung des an die Function empfang
'übergebenenen Feldes fFeld
End Function

Wie lautet der Code, damit ich das Feld fFeld an die Function empfang übergeben kann?

Vielen Dank für eure Mühe im voraus.

[ratrad]

Code:

Sub Feld()
'Feld als Variant übergeben
Dim fFeld(5) As Variant, tmp, y
For i = 1 To 5
fFeld(i) = Chr(i + 64)
Next i

empfang (fFeld)
End Sub

Function empfang(f As Variant)
'Hier Code für Weiterverarbeitung des an die Function empfang
'übergebenenen Feldes fFeld
Debug.Print f(3)

End Function