VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

UserForm-TextBox-Werte multiplizieren und eintragen

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox