Office: VBA: Arraylänge zur Laufzeit festlegen

Hallo Leute, ich habe ein Problem, wo ich einfach nicht weiterkomme.

Ich habe ein Makro geschrieben, welches eine InputBox erscheinen lässt, in die eine Zahl einzugeben ist. Nehmen wir an, die 5 wurde eingegeben und auf OK geklickt.

Ich möchte nun in meiner einen Funktion ein dreidimensionales Array erzeugen, wovon die erste Länge genau die eingegebene Zahl - also z.B. 5 - ist.

In meinem Modul steht:
Public NumClusters As Integer
(Dieser Variablen wir dann die eingegebene Zahl zugewiesen)

Public Sub CreateClustersFromCenters()
Dim distances(NumClusters, 17, 8) As Double
...
End Sub


Es kommt: Fehler beim Kompilieren, Konstanter Ausdruck erforderlich.

Ich habe wirklich NULL Ahnung wie ich das beseitigen soll, alle Versuche haben nichts genützt. Aber es muss doch irgendwie gehen, da bin ich sicher!
Ihr würdet mir riesig helfen, wenn ihr mir da einen Hinweis geben könntet, denn die 17 und die 8 sind auch erstmal nur provisorisch, um mein Programm durch eine Testinstanz zu jagen, das wird später auch noch variabel.

Besten Dank für Eure Mühen und ein schönes Wochenende!!

 

Array erstmal definieren und dann ReDim

 

Grüezi Carlito

So sollte ds klappen:

Code:

Dim distances() As Double

NumClusters = Application.InputBox("Zahl eingeben", Type:=3)

ReDim distances(NumClusters, 17, 8)

 

Herzlichen Dank euch beiden!

Funktioniert einwandfrei :-)

Ihr habt's drauf :-)

Viele Grüße!