Zahl mit Punkt und Komma
31.05.2019 12:08:01
Dietmar
ich benötige mal wieder euere Hilfe.
Mit diesem Makro
Private Sub EINTRAG_SPEICHERN()
Dim lZeile As Long, i As Integer
If ListBox1.ListIndex = -1 Then Exit Sub
lZeile = ListBox1.List(ListBox1.ListIndex, 0)
For i = 2 To iCONST_ANZAHL_EINGABEFELDER
ActiveWorkbook.ActiveSheet.Cells(lZeile, i) = Me.Controls("TextBox" & i)
ActiveWorkbook.ActiveSheet.Cells(lZeile, 1) = CDate(Me.TextBox1)
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
ListBox1.List(ListBox1.ListIndex, 5) = TextBox5
ListBox1.List(ListBox1.ListIndex, 6) = TextBox6
ListBox1.List(ListBox1.ListIndex, 7) = TextBox7
ListBox1.List(ListBox1.ListIndex, 8) = TextBox8
End Sub
erfolgen Eingaben über eine Userform in eine Tabelle.
Über Textbox6 werden Beträge eingegeben die leider nicht in der von mir gewünschten Form wiedergegeben werden ( z.B. 50000 soll in 50.000,00 )
Kann mir jemand helfen ?
Vielen Dank und Gruß
Dietmar