Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

In einer UserForm Berechnungen aufaddieren

Gruppe

TextBox

Problem

Wie kann ich in einer UserForm-TextBox die in einer anderen TextBox berechneten Werte aufaddieren lassen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

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