Wert als Zahl formatieren
31.01.2020 11:27:29
Schönherr
ich habe folgendes Problem: Wenn ich auf den Button "Eintrag speichern" gehe, formatiert es die Zahlen in den Textboxen als Text. Dadurch passieren Fehler beim Rechnen. Wie kann ich die Werte als Zahl formatieren?
Hier der Code:
Private Sub EINTRAG_SPEICHERN()
Dim lZeile As Long
Dim i As Integer
If ListBox1.ListIndex = -1 Then Exit Sub
lZeile = ListBox1.List(ListBox1.ListIndex, 0)
For i = 1 To iCONST_ANZAHL_EINGABEFELDER
Tabelle2.Cells(lZeile, i) = Me.Controls("TextBox" & i)
Next i
ListBox1.List(ListBox1.ListIndex, 1) = TextBox1
ListBox1.List(ListBox1.ListIndex, 2) = TextBox2
ListBox1.List(ListBox1.ListIndex, 3) = TextBox3
ListBox1.List(ListBox1.ListIndex, 4) = TextBox4
End Sub