Forums Neueste Beiträge
 

Array an Funktion übergeben

24/09/2009 - 09:45 von Ahmed Martens | Report spam
Hallo Leute,

kann man irgendwie auf einfach weise eine Array-Übergabe in einer
Funktion machen?

Beispiel:

Call myFunction(Sheets(1),Sheets(2), Sheets(3),..., Sheets(n))


Die Sheets-Anzahl soll dabei von 1 bis n möglich sein.

Wie muss ich die Funktion myFunction deklarieren, damit ich ein Array
vom Typ Worksheets übergeben kann?

Hat da jemand vielleicht ein Beispiel für?

Danke schon einmal im voraus.

Gruß Ahmed
Antworten bitte nur in der Newsgroup.
WinXP Prof. / MS-Office 2003 Prof.
 

Lesen sie die antworten

#1 Andreas Killer
24/09/2009 - 12:04 | Warnen spam
On 24 Sep., 09:45, Ahmed Martens wrote:


Call myFunction(Sheets(1),Sheets(2), Sheets(3),..., Sheets(n))

Die Sheets-Anzahl soll dabei von 1 bis n möglich sein.



Sub myFunction(ParamArray WS())
Dim I As Integer
For I = LBound(WS) To UBound(WS)
Debug.Print WS(I).Name
Next
End Sub

Sub Main()
myFunction Sheets(1), Sheets(2), Sheets(3)
End Sub

Ähnliche fragen