VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte aus UserForm-TextBox und aus Tabelle gerundet anzeigen

Gruppe

Dialog

Bereich

TextBox

Thema

Werte aus UserForm-TextBox und aus Tabelle gerundet anzeigen

Problem

Wie kann ich Werte aus einer UserForm-TextBox und aus einer Tabelle in einer weiteren UserForm-TextBox auf zwei Stellen gerundet anzeigen lassen?

Lösung

Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.




ClassModule: frmRunden

Private Sub cmdAusTabelle_Click()
   txtRunden.Value = WorksheetFunction.Round( _
      Range("A1").Value, 2)
End Sub

Private Sub cmdAusTextBox_Click()
   txtRunden.Value = WorksheetFunction.Round( _
      CDbl(txtBasis.Value), 2)
End Sub

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmRunden.Show
End Sub

    


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