Zahlenformat über Userform funzt nicht
19.05.2020 13:00:12
Sonja
Mit einer Userform fülle ich eine Tabelle aus. Euro-Beträge, Prozente etc.
Jetzt hat mir Hansueli in diesem Forum am 14.05.20 meine Userform so umgearbeitet, dass ich die einzelnen Zeilen wieder über die gleiche Userform einlesen kann, falls Änderungen oder Ergänzungen hinzugefügt werden sollen.
Beim 1. Aufruf (Zeile noch leer) wird über folgende Funktion das Zahlenformat für Euro bestimmt und die Zellzuweisung gemacht.
.Cells(lUpdRow, 23).Value = TextBox10
If TextBox10 "" Then
.Cells(lUpdRow, 23).NumberFormat = "#.##0,00 $"
.Cells(lUpdRow, 23) = Val(Replace(TextBox10, ",", "."))
End If
nächste Textbox... usw.
Das klappt wunderbar und jetzt kommt das Problem:
Wenn ich die Eintragungen der gewünschten Zeile wieder in die Userform einlese (mit folgender Procedur):..
Else
Caption = "Auftragnehmer:" & .Cells(pLRow, 5).Text
TextBox10.Text = .Cells(pLRow, 23).Text
Dann teilt er mir den Euro-Betrag durch 1000 und/oder der Betrag wird verändert auf 3 Stellen hinter dem Komma.
Was mach ich denn falsch (wein) ?
Beste Grüße vom Dauerpatienten
Sonja