VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Umwandlung eines TextBox-Wertes in eine Zahl

Gruppe

Dialog

Bereich

TextBox

Thema

Umwandlung eines TextBox-Wertes in eine Zahl

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?

Lösung

Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.




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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox