Thema: Werte runden

Home

Abbildung - Werte runden

Prozedur: cmdAusTextBox_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Wert aus TextBox runden
Ablaufbeschreibung:
- TextBox mit dem zu zwei Nachkommastellen gerundeten, zu Double konvertiertem vorherigen TextBox-Wert füllen

Code:


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

Prozedur: cmdAusTabelle_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Wert aus Tabelle runden
Ablaufbeschreibung:
- TextBox mit dem zu zwei Nachkommastellen gerundeten, zu Double konvertiertem Zellwert füllen

Code:


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