VBA: Array-Werte
27.12.2004 16:03:02
Christian
ich habe eine Frage zu Array-Werten und hoffe, ihr könnt mir helfen.
Ich möchte die Werte 6, 10, 15, 20, 25, 30, 35, 40, 45, 50, 61, 63, 65, 67, 69, 71, 73, 113, 116, 119, ... und noch einige mehr in ein Array schreiben.
Diese haben gruppenweise immer die selbe Schrittweite
Mein Versuche, nicht alle Werte einzeln aufführen zu müssen, schlugen bisher fehl
Bsp: arr = Array(6, 10 To 50 Step 5, 61 To 73 Step 2, 113 To 131 Step 3) funktioniert nicht
Meine Frage:
kann man diese Gruppen sinnvoll zusammenfassen oder muss jeder Array-Wert einzeln bezeichnet werden?
vielen Dank für eure Hilfe
Grüße
Christian
Sub Test()
Dim k As Integer
Dim arr As Variant
arr = Array(6, 10, 15, 20, 25, 30, 35, 40, 45, 50, 61, 63, 65, 67, 69, 71, 73)
'arr = Array(6, 10 To 50 Step 5, 61 To 73 step 2) 'führt zu Fehler
For k = 0 To UBound(arr)
MsgBox arr(k)
Next k
End Sub
Anzeige