Gruppe
Dialog
Problem
Wie kann ich in einer UserForm-TextBox die in einer anderen TextBox berechneten Werte aufaddieren lassen?
ClassModule: frmBerechnen
Private Sub cmdBerechnen_Click()
Dim dValueA As Double, dValueB As Double
Dim dBerechnung As Double, dTotal As Double
dValueA = CDbl(txtWert1.Text)
dValueB = CDbl(txtWert2.Text)
txtBerechnung.Value = dValueA + dValueB
dBerechnung = CDbl(txtBerechnung.Text)
If txtTotal.Text <> "" Then
dTotal = CDbl(txtTotal.Text)
Else
dTotal = 0
End If
txtTotal.Value = dTotal + dBerechnung
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
StandardModule: basMain
Sub CallForm()
frmBerechnen.Show
End Sub