|
Bei dem u.a. Code lade ich aus der Zelle C6 nur dieTausenderzahl in eine UF um die restlichen Zahlen einzugeben und wieder zu speichern. Dies wird täglich gemacht.
Wenn nun die Zahl 9499,99 in C6 eingegeben ist und ich lade dann übernimmt der Code mir die Tausenderstelle (also 9 ) in die UF.
Wenn ich jedoch 9500,00 drinnen stehen habe, dann rundet er auf 10 auf - das ist aber falsch. Erst wenn 10.000,00 in C6 steht, dann soll der Code mir die 10 in die UF bringen.
Hat wer eine Lösung dafür
Danke chris58
Private Sub CommandButton3_Click()
Dim StartZeile&
Dim Ws As Worksheet
Set Ws = ActiveSheet
StartZeile = Ws.Cells(3, 1).End(xlUp).Row + 5
TextBox1 = CDbl(Format(Ws.Cells(StartZeile, 3), "0 ,"""))
UserForm1.TextBox1.SetFocus
Ws.Cells(StartZeile + 1, 3) = TextBox3
End Sub
|