Gruppe
Dialog
Bereich
TextBox
Thema
UserForm-TextBox-Werte multiplizieren und eintragen
Problem
Der Wert aus 2 UserForm-TextBoxes soll multipliziert und in das aktive Blatt eingetragen werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.
ClassModule: frmEintragen
Private Sub cmdEintragen_Click()
Dim dValue As Double
dValue = CDbl(TextBox1.Text) * CDbl(TextBox2.Text)
Cells(ActiveCell.Row, 3).Value = Date
Cells(ActiveCell.Row, 4) = dValue
Unload Me
End Sub
StandardModule: Modul1
Sub DialogAufruf()
frmEintragen.Show
End Sub