tekstvakken optellen

[Roma]

Beste specialisten,
Ik heb 2 TekstBoxen in UserForm die ik wil optellen ik had de volgende code maar hij werkt niet.
weet iemand wat ik fout doe?

Private Sub TextBox82_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox82.Value = TextBox41.Value + TextBox42.Value
End Sub

alvast bedankt

 

[edmoor]

Tekstboxen bevatten tekst, ook als er een getal in staat en daar kan je dus niet mee rekenen. Als er hele getallen in staan kan je dit doen:

Private Sub TextBox82_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox82.Value = Cint(TextBox41.Value) + Cint(TextBox42.Value)
End Sub

 

[Roma]

Edmoor,
Bedankt voor de supersnelle reactie. Helaas het werkt niet.

 

[edmoor]

Dan kan je beter een voorbeeld laten zien van wat je hebt.

 

[E v R]

ZO:?

TextBox82.Value = Val(TextBox41.Text) + Val(TextBox42.Text)

 

[Roma]

Beste,
De code van Edmoor werkt wel. Alleen je dan in de TkstBox82 staan en op enter drukken.
Ik zou graag willen dat het direct zichtbaar was

 

[E v R]

Je hebt toch zelf voor het Exit-Event gekozen?

Kies dan bijv. het afterupdate-event van de andere Textboxen

 

[Roma]

Beste Edmoor,
In de bijlage een voorbeeld.
In het officiële bestand zijn alle TextBoxen geblokkeerd. De Gegevens worden uit verschillende tabbladen gehaald. De bedoeling is dat als je UserForm opent dan alle gegevens worden weergegeven.
Alvast bedankt voor het meedenken

 

[Warme bakkertje]

Private Sub TextBox41_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode >= 96 And KeyCode <= 105 Then
        If TextBox41.Text <> vbNullString And TextBox42.Text <> vbNullString Then
            TextBox82.Text = CDbl(TextBox41.Text) + CDbl(TextBox42.Text)
        End If
    End If
End Sub

Private Sub Textbox42_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode >= 96 And KeyCode <= 105 Then
        If TextBox41.Text <> vbNullString And TextBox42.Text <> vbNullString Then
            TextBox82.Text = CDbl(TextBox41.Text) + CDbl(TextBox42.Text)
        End If
    End If
End Sub

Let wel dat deze enkel werkt als gebruik wordt gemaakt van het numerieke toetsenbord.(dus niet met Shift - getal)