Übergabe eines Arrays an eine Funktion / ein Sub (WORD 2002,SP3)

25/11/2008 - 17:22 von Albrecht O. Schweiket | Report spam
Hallo alle,

ich kàmpfe erfolglos um eine Möglichkeit, einen vektor (bzw. Array) an eine
Function oder Sub zu übergeben.
Bis hier bin ich gekommen:

Sub ArrayÜbergabe()
Dim Vektor As Variant
Vektor = Array("Lisa", "Paul", "Anna")
For i = 0 To UBound(Vektor)
Debug.Print Vektor(i)
Next i
Call Andruck(Vektor)
End Sub

Sub Andruck(ParamArray Liste())
For j = 0 To UBound(Liste)
Debug.Print Liste(i)
Next j
End Sub

Das druckt mir im Sub Arrayübergabe die 3 Namen korrekt aus.
Im Sub Andruck ist Ubound(Liste) = 0, also kein Andruck!

Was mache ich da falsch?

TIA Albrecht
 

Lesen sie die antworten

#1 Albrecht O. Schweiket
25/11/2008 - 17:27 | Warnen spam
Hi all,

das muß natürlich in der 2. Sub Liste(j) heißen. Ändert aber nichts am
Problem.

Gruß Albrecht

Ähnliche fragen