Array an ParmaArray übergeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub aatest() Dim bestArray bestArray = Array(1, 2, 3, 4) 'testdaten Call TEST(varArray:=bestArray) End Sub Sub TEST(varArray As Variant) Dim iI As Long, dblSum As Double If IsArray(varArray) Then For iI = LBound(varArray) To UBound(varArray) dblSum = dblSum + varArray(iI) Next MsgBox "Summe-Arraywerte: " & dblSum Else MsgBox "Daten müssen als Array an Prozedur übergeben werden!" End If End Sub

Hi
naja, ganz so einfach gehts nicht.
wenn du "Call Text (1,2,3,4)" verwendest, dann ist Number eine eindimensonale Feldvariable mit 4 Integer-Werten, die du mit Number(x) abfragen kannst.
übergibts du hingeben mit "Call Text (bestArr)" direkt eine Array-Variable, dann ist Number auch wieder eine Feldvariable, die aber nur einen "Wert" enthält und in diesem Fall ist dieser "Wert" selbst wieder eine Feldvariable.
dh um in diesem Fall auf die einzelnen Werte zuzugreifen, musst du das so schreiben: Number(0)(x)
im Endeffekt läuft es darauf hinaus, daß du, je nach nach übergabeart, speziell programmieren must bzw über die funktionen "Ubound(Number)" bzw "Vartype(Number(0))" feststellen musst, welcher Fall vorliegt um dann mit IF bzw SELECT CASE die entscheidenden Programmzeilen entsprechend differenziert auszuführen:
am einfachsten wird wohl sein du machst das so:

dim arr
if vartype(Number(0))>8000 then
arr=Number(0)
else
arr = Number
End if

um dann im Folgenden nur noch mit arr weiterszuarbeiten.
Gruß, Daniel

Sub TEST(ParamArray varNumber() As Variant) Dim MeAr, A As Long If IsArray(varNumber(0)) Then MeAr = varNumber(0) Else MeAr = varNumber End If For A = LBound(MeAr) To UBound(MeAr) MsgBox MeAr(A) Next A End Sub

Sub TEST(ParamArray varNumber() As Variant) Dim MeAr, A As Long, B As Long For B = LBound(varNumber) To UBound(varNumber) If IsArray(varNumber(B)) Then MeAr = varNumber(B) Else MeAr = Array(varNumber(B)) End If For A = LBound(MeAr) To UBound(MeAr) MsgBox MeAr(A) Next A Next B End Sub Sub TestBeispiel() Dim MeAr(), A As Long, B As Long TEST 5 'nur ein eintrag For A = 1 To 15 Step 5 ReDim Preserve MeAr(B) MeAr(B) = A B = B + 1 Next A TEST MeAr, 100, 300, 500 End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

36 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Array an ParmaArray übergeben

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

36 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread