Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Umwandlung eines TextBox-Wertes in eine Zahl

Gruppe

TextBox

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