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