Variabele aangevuld met een cijfer

[keesbl]

Hallo,

Ik wil graag een variabele vullen met een waarde uit een cel. De variabele, bv "post" wil ik aanvullen met een cijfer, bv post1, post2, post3 t/m post10
Ik wil dat met een loop doen, op de volgende manier, maar dat gaat niet.

For t = 1 To 10
post & t = Range("B" & t).Value
Next t

Hoe kan ik dit toch voor elkaar krijgen?
Op voorhand dank!

Kees

 

[edmoor]

Maak van de variabele post een array dan kun je die vullen en naderhand weer uitlezen post(t). Hou er rekening mee dat een array begint te tellen bij 0 en niet bij 1.

Dim post() as String
For t = 1 To 10
    Redim Preserve post(t)
    post(t) = Cells(2, t).Value
Next t

 

[OctaFish]

Hou er rekening mee dat een array begint te tellen bij 0 en niet bij 1.

Niet als je Option Base gebruikt:

Option Base 1

Dim Post(10) As String
    For t = 1 To 10
        Post(t) = Cells(2, t).Value
    Next t
End Sub

 

[edmoor]

Terechte aanvulling

 

[keesbl]

Dank je heren, ook voor elkaars aanvulling!

Nooit gedacht dat ik nog zoveel zou opsteken.
Hier kan ik weer verder mee!

Kees

 

[snb]

aanvullende aanvulling:

Sub M_snb()
   sn = [A1&row(1:10)]
End Sub

De code van EdMoor zou ik zo maken:

sub M_snb()
  sn=cells(2,1).resize(,10)
end sub

of

   sn = [transpose(B1:K1)]

 

[keesbl]

Dank, mijn probleem is opgelost, de oplossing van edmoor voldoet voor mij.

Kees

 

[OctaFish]

Da's zo'n beetje de minst handige