variabele inhoud doorgeven aan andere variabele

[so10070]

Vervelend probleem: Heb acht variabelen (in een dimensie) aangemaakt (Gekozen_(1) tot en met Gekozen_(8)) en wil volgende VBA toepassen.

For Aantal = 2 To 8
NaamVeld = "Gekozen_(" & CStr(Aantal) & ")" 'dit is de naam van het veld dat nagekeken moet worden
WaardeVeld = [NaamVeld] 'en ik weet niet hoe ik de waarde van het veld moet bekomen op basis van de naam van het veld, met " of ' of een combinatie met &, maar hoe?
If IsNull(WaardeVeld) Then
MsgBox "de waarde van " & NaamVeld & " is null", vbInformation
Else
MsgBox "De " & Cstr(Aantal) & " variabele is: " & NaamVeld & " is niet null en is: " & WaardeVeld, vbInformation
End If
Next

 

[OctaFish]

Je hebt een volgens mij heel ongelukkige naam gekozen voor je variabele, omdat een haakje een beschermd teken is. Een array kun je best zo definiëren:

Dim Gekozen(8) As Integer

En dan werkt het zo:

For Aantal = 1 To 8
    If IsNull(Gekozen(Aantal)) Then
        MsgBox "de waarde van " & Gekozen(Aantal) & " is Nul", vbInformation
    Else
        MsgBox "De " & Aantal & " variabele is: " & Gekozen(Aantal) & " is niet Nul en is: " & Gekozen(Aantal), vbInformation
    End If
Next

Kortom: waarom zo ingewikkeld?

 

[so10070]

Again thanks!:d