Thema Datum  Von Nutzer Rating
Antwort
Rot Kein Aufrunden bei Laden in UF
29.05.2023 08:27:29 chris58
Solved
29.05.2023 11:16:17 xlKing
NotSolved
29.05.2023 13:00:24 chris58
NotSolved
29.05.2023 13:00:25 chris58
NotSolved
29.05.2023 13:15:38 xlKing
NotSolved
29.05.2023 15:00:22 chris58
NotSolved
29.05.2023 11:48:41 Gast28330
NotSolved
29.05.2023 13:01:51 chris58
Solved
29.05.2023 15:12:44 chris58
NotSolved

Ansicht des Beitrags:
Von:
chris58
Datum:
29.05.2023 08:27:29
Views:
764
Rating: Antwort:
 Nein
Thema:
Kein Aufrunden bei Laden in UF

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Kein Aufrunden bei Laden in UF
29.05.2023 08:27:29 chris58
Solved
29.05.2023 11:16:17 xlKing
NotSolved
29.05.2023 13:00:24 chris58
NotSolved
29.05.2023 13:00:25 chris58
NotSolved
29.05.2023 13:15:38 xlKing
NotSolved
29.05.2023 15:00:22 chris58
NotSolved
29.05.2023 11:48:41 Gast28330
NotSolved
29.05.2023 13:01:51 chris58
Solved
29.05.2023 15:12:44 chris58
NotSolved