Clever-Excel-Forum

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.

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

sotaros

ratrad