Gruppe
Dialog
Problem
Wie kann ich in einer TextBox einer UserForm eingegebene Werte in von Optionsfeldern abhängigen Formaten in eine Zelle übertragen?
ClassModule: frmFormatAuswahl
Private Sub cmdEintragen_Click()
Dim dValue As Double
If optWaehrung.Value = True Then
Range("A1").NumberFormat = "#,##0.00 $"
ElseIf optKolonne.Value = True Then
Range("A1").NumberFormat = "#,##0.00"
ElseIf optSingle.Value = True Then
Range("A1").NumberFormat = "0"
Else
Range("A1").NumberFormat = "0.00%"
End If
dValue = CDbl(txtWert.Text)
If optProzent.Value = True Then dValue = dValue / 100
Range("A1") = dValue
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
StandardModule: basMain
Sub CallForm()
frmFormatAuswahl.Show
End Sub