Zu Double konvertierte Werte aus den beiden TextBoxes an eine Double-Variable übergeben
In der aktiven Zeile in Spalte C das aktuelle Datum eintragen
In der aktiven Zeile in Spalte D den multiplizierten Wert eintragen
Code:
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