VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Labelwerte werden beim Verlassen einer TextBox berechnet

Gruppe

Dialog

Bereich

Label

Thema

Labelwerte werden beim Verlassen einer TextBox berechnet

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

    


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