Gruppe
Dialog
Problem
Der Wert aus 2 UserForm-TextBoxes soll multipliziert und in das aktive Blatt eingetragen werden.
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