Gruppe
Dialog
Bereich
TextBox
Thema
Zellwerte UserForm-TextBoxwerte hinzuaddieren
Problem
Auf UserForm-Schaltflächendruck sollen zu Zellwerten TextBox-Werte hinzuaddiert werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.
ClassModule: frmAddieren
Private Sub cmdAddieren_Click()
If TextBox1.Text <> "" Then
Range("A1").Value = Range("A1").Value + CDbl(TextBox1.Text)
End If
If TextBox2.Text <> "" Then
Range("B3").Value = Range("B3").Value + CDbl(TextBox2.Text)
End If
If TextBox3.Text <> "" Then
Range("C6").Value = Range("C6").Value + CDbl(TextBox3.Text)
End If
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
StandardModule: Modul1
Sub DialogAufruf()
frmAddieren.Show
End Sub