Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Labelwerte werden beim Verlassen einer TextBox berechnet

Gruppe

Label

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.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.

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