Gruppe
Dialog
Bereich
TextBox
Thema
TextBox-Eingabe mit Formel weiterberechnen und zurückgeben
Problem
Der Wert einer TextBox soll über eine Formel weiterberechnet und an die TextBox zurückgegeben werden.
Lösung
Geben Sie den nachstehenden Code in das Klassenmodul der UserForm ein.
ClassModule: frmCalc
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
txtBerechnen.Text = Sin(CDbl(txtBerechnen.Text))
End Sub
Private Sub UserForm_Initialize()
txtBerechnen = 122.3
End Sub
StandardModule: Modul1
Sub DialogAufruf()
frmCalc.Show
End Sub