Textboxen uitlezen

[apikills]

Ik heb 12 textboxen, genaamd TextBox1, TextBox2, etc.
Deze boxen staan in een userform, waarin men zelf een waarde kan invullen. Nu wil ik deze waarden uitlezen (moeten getallen zijn) en wegschrijven in een variabele die eerder is gedeclareerd als lMndbedrag(12).

Hoe kan ik makkelijk deze waarden uitlezen en zorgen dat het een getal is (type long)?

apikills

 

[Roncancio]

Als er geen getal in een tekstbox staat of de tekstbox is leeg, dan wordt er een 0 aan de waarde van lMaandbedrag(i) ingevoerd.
lMaandbedrag bestaat uit 12 getallen.


Private Sub CommandButton1_Click()
Dim lMaandbedrag(12) As Long
For i = 1 To 12
bedrag = UserForm1.Controls("TextBox" & i)
If IsNumeric(bedrag) = False Or bedrag = "" Then
bedrag = 0
End If
lMaandbedrag(i) = bedrag

Next i


End Sub

 

[apikills]

oke Roncancio,

super geholpen, was dus op zoek naar het commando 'controls'. Kreeg het maar niet voor elkaar.

Bedankt:thumb: