Gruppe
Dialog
Problem
Wie kann ich Werte aus einer UserForm-TextBox und aus einer Tabelle in einer weiteren UserForm-TextBox auf zwei Stellen gerundet anzeigen lassen?
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