Gruppe
Dialog
Problem
Wenn in einer UserForm-TextBox Zahlen mit Komma als Dezimaltrenner eingegeben werden, wird der Wert bei einer Übernahme auf CommandButton-Befehl als Text eingetragen. Wie kann ich das verhindern?
ClassModule: Tabelle1
Private Sub CommandButton1_Click()
frmDezimaltrenner.Show
End Sub
ClassModule: frmDezimaltrenner
Private Sub CommandButton1_Click()
Worksheets("Tabelle1").Range("A1") = _
WorksheetFunction.Substitute(TextBox1.Value, ",", ".")
Unload Me
End Sub
StandardModule: basMain
Sub CallForm()
frmDezimaltrenner.Show
End Sub