Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

UserForm-TextBox-Werte multiplizieren und eintragen

Gruppe

TextBox

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