Gruppe
Dialog
Problem
Der Wert eines UserForm-Labels soll um einen über TextBox-Eingabe ermittelten Prozentsatz vermindert und nach Verlassen der TextBox in ein weiteres Label eingetragen werden.
ClassModule: frmPercent
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub txtPercent_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim dValue As Double
dValue = CDbl(Label1.Caption)
dValue = dValue - ((CDbl(txtPercent.Text) / 100) * dValue)
Label2.Caption = Format(dValue, "0.00")
End Sub
StandardModule: Modul1
Sub DialogAufruf()
frmPercent.Show
End Sub