Zahl mit Punkt und Komma

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

= 2 To iCONST_ANZAHL_EINGABEFELDER If i = 6 Then ActiveWorkbook.ActiveSheet.Cells(lZeile, i) = CDbl(Me.Controls("Textbox" & i)) Else ActiveWorkbook.ActiveSheet.Cells(lZeile, i) = Me.Controls("TextBox" & i) ActiveWorkbook.ActiveSheet.Cells(lZeile, 1) = CDate(Me.TextBox1) End If Next i

Hi
ich gehe mal davon aus, dass du die Werte in der Textbox im Deutschen Zahlenformat eingibst.
damit das beim Übertragen korrekt übernommen wird, musst du das VBA mitteilen, sonst geht es beim Übertragen der Werte von amerikanischen Formaten aus.
die Darstellung der Zahl in der Zelle (Anzahl NK-Stellen, 1000-Punkt) machst du dann in der Exceltabelle direkt über das Zahlenformat der Zelle, das kannst du ja einmalig für jede Spalte passend vergeben.
ansonsten ist deine Verwendung von Schleifen etwas seltsam.
zum einen nimmst du eine Aktion, die sich innerhalb der schleife nicht ändert, in der Schleife vor, das ist aber eine unnötige Wiederholung der Aktion.
Alles was sich über die Schleife nicht ändert, sollte man besser einmalig außerhalb der Schleife durchführen.
und dann programmierst du eine Aktion aus, die man aber sehr gut in einer Schleife durchführen könnte.
Daher so:

  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).FormulaLocal = Me.Controls("TextBox" & i)
Next i
ActiveWorkbook.ActiveSheet.Cells(lZeile, 1) = CDate(Me.TextBox1)
for i = 1 to 8
ListBox1.List(ListBox1.ListIndex, i) = Me.Controls("TextBox" & i)
next
End Sub

Gruß Daniel

Private Sub EINTRAG_SPEICHERN() Dim lZeile As Long, i As Integer 'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet If ListBox1.ListIndex = -1 Then Exit Sub 'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes lZeile = ListBox1.List(ListBox1.ListIndex, 0) If Me.TextBox1 "" Then If IsDate(Me.TextBox1) Then ActiveWorkbook.ActiveSheet.Cells(lZeile, 1) = CDate(Me.TextBox1) End If Else ActiveWorkbook.ActiveSheet.Cells(lZeile, 1) = "" End If For i = 2 To iCONST_ANZAHL_EINGABEFELDER If i = 6 Then ActiveWorkbook.ActiveSheet.Cells(lZeile, i) = CDbl(Me.Controls("TextBox" & i)) Else ActiveWorkbook.ActiveSheet.Cells(lZeile, i) = Me.Controls("TextBox" & i) End If Next i 'Der Benutzer könnte die angezeigten Werte in der Liste geändert haben, 'daher aktualisieren wir den ausgewählten Eintrag entsprechend. For i = 1 To 8 ListBox1.List(ListBox1.ListIndex, i) = Me.Controls("TextBox" & i) Next End Sub

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahl mit Punkt und Komma

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread