getallen uit userform worden aanzien als tekst

[frcn]

Beste,

Ik heb een programmaatje gemaakt (zie bijlage)om de uitslagen van onze volksspelen in te brengen.
Maar er is een probleem die ik als beginnend VBA'r niet kan oplossen.
Als ik de uitslagen in de userform inbreng en ze daarna wegschrijf naar het data-werkblad worden deze getallen aanzien
als tekst en komt er een groen vakje voor te staan.
Hoe kan ik dit oplossen a.u.b.

Vriendelijke groeten,
FRCNBekijk bijlage VolkssspelenOkra.xlsm

 

[r3000]

Je programma werkt bij mij niet maar probeer dit eens.

 .Offset(, 2) = TextBox1: TextBox1 = ""
        Selection.NumberFormat = "0"
        .Offset(, 3) = TextBox2: TextBox2 = ""
        Selection.NumberFormat = "0"
        .Offset(, 4) = TextBox3: TextBox3 = ""
        Selection.NumberFormat = "0"
        .Offset(, 5) = TextBox4: TextBox4 = ""
        Selection.NumberFormat = "0"
        .Offset(, 6) = TextBox5: TextBox5 = ""
        Selection.NumberFormat = "0"
        .Offset(, 7) = TextBox6: TextBox6 = ""
        Selection.NumberFormat = "0"
        .Offset(, 8) = TextBox7: TextBox7 = ""
        Selection.NumberFormat = "0"
        .Offset(, 9) = TextBox8: TextBox8 = ""
        Selection.NumberFormat = "0"
        .Offset(, 10) = TextBox9: TextBox9 = ""
        Selection.NumberFormat = "0"
        .Offset(, 11) = TextBox10: TextBox10 = ""
        Selection.NumberFormat = "0"

 

[pasan]

probeer deze eens

Private Sub CommandButton1_Click()
Set foundcell = Sheets("Blad1").Range("Namen").Find(ComboBox1.Text)
    With Range(foundcell.Address).Offset(, 1)
    For i = 1 To 10
        .Offset(, i) = CInt(Me("TextBox" & i))
       Me("TextBox" & i) = ""
     Next i
    End With
End Sub

 

[snb]

Private Sub CommandButton1_Click()
    Sheets("Blad1").Range("Namen").Find(ComboBox1.Text,,xlvalues,1).Offset(, 1).resize(,10)=array(val(Textbox1),val(Textbox2),val(Textbox3),val(Textbox4),val(Textbox5),val(Textbox6),val(Textbox7),val(Textbox8),val(Textbox9),val(Textbox10)))
End Sub

 

[frcn]

Beste r3000, pasan en snb

Ik bedank jullie voor de snelle reaktie om mij een oplossing aan te reiken.
Het is uiteindelijk de oplossing van 'pasan' geworden.
Bij r3000 en snb kreeg ik een fout melding.
In ieder geval alle drie nogmaals hartelijk bedank.
Prettige dag nog verder en vriendelijke groeten.

FRCN

 

[snb]

Een haakje weghalen en je was er:

Private Sub CommandButton1_Click()
    Sheets("Blad1").Range("Namen").Find(ComboBox1.Text, , xlValues, 1).Offset(, 2).Resize(, 10) = Array(Val(TextBox1), Val(TextBox2), Val(TextBox3), Val(TextBox4), Val(TextBox5), Val(TextBox6), Val(TextBox7), Val(TextBox8), Val(TextBox9), Val(TextBox10))
End Sub