Thema: Multiplizieren und eintragen

Home

Abbildung - Multiplizieren und eintragen

Prozedur: cmdEintragen_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Multiplizieren und eintragen
Ablaufbeschreibung:
- Variablendeklaration
- 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