Geen constante maar variabele invoer

Status
Niet open voor verdere reacties.

VBAn00b

Gebruiker
Lid geworden
22 feb 2008
Berichten
17
Hallo,

Ons probleem is als volgt:

Wij willen een dimensie creeren in excel waardoor cellen gevuld kunnen worden. Wij willen deze dimensie echter variabel hebben naar de hoeveelheid totalrows die we hebben. Maar zodra er tussen de haakjes na dim tict (totalrows) wordt ingevuld vraagt deze om een constante, maar wij willen deze echter variabel hebben.

Wat te doen? Hieronder staat de code:



Private Sub CommandButton1_Click()

Range("g7").Select

Range(Selection, Selection.End(xlDown)).Select

totalrows = ActiveSheet.UsedRange.Rows.Count - 1

Dim tict() As String
Range("g7").Select

i = 0

Do While i <= totalrows

tict(i) = ActiveCell.Value

ActiveCell.Offset(1, 0).Select

i = i + 1

Loop

arraySecurities = tict

End Sub​

Het probleem zit hem in het rood geacceerde gedeelte! Wanneer we hier bijvoorbeeld 23 invullen dan fungeert het systeem perfect, maar deze moet dus variabel zijn, gekoppeld aan de totalrows!

Als iemand ons op weg zou kunnen helpen dan zou dat fantastisch zijn. Wij zijn onervaren met VBA en hebben dusver alles van internet af geript!

Alvast bedankt!

VBAn00b
 
Dat doe je als volgt met Redim:
Code:
Dim tict() As String 

ReDim tict(totalrows)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan