Microsoft Excel

Herbers Excel/VBA-Archiv

Dezimalzahlen werden zu ganzen Zahlen

Betrifft: Dezimalzahlen werden zu ganzen Zahlen von: Caroline
Geschrieben am: 08.08.2014 12:59:14

Hallo!
Ich versuche gerade den Inhalt eines Textfelds in eine Tabellenzelle einzufügen:

Range("Berechnung!AP26") = Rh5.Text

Leider wandelt es mir Dezimalzahlen (z.B. 2,123) in ganze Zahlen um (2.123,0000), die Tabellenzelle ist formatiert als dezimalzahl mit 4 Stellen.

Wir verhindere ich das bzw wie erreiche ich, dass es immer genau die Zahl übernimmt, die ich eingegeben habe?

Liebe Grüße
Caro

  

Betrifft: AW: Dezimalzahlen werden zu ganzen Zahlen von: selli
Geschrieben am: 08.08.2014 13:02:20

hallo caro,

Range("Berechnung!AP26") = Rh5.Text*1

gruß
selli


  

Betrifft: AW: Dezimalzahlen werden zu ganzen Zahlen von: Caroline
Geschrieben am: 08.08.2014 13:06:16

Danke für die schnelle Antwort, leider erzeugt das einen Fehler...


  

Betrifft: Man kann in VBA nicht wie in Xl eine ... von: Luc:-?
Geschrieben am: 08.08.2014 13:22:16

…TextZahl einfach mit 1 multiplizieren, Selli,
um eine echte Zahl daraus zu machen (vgl Daniels AW)!
Gruß, Luc :-?


  

Betrifft: AW: Dezimalzahlen werden zu ganzen Zahlen von: Daniel
Geschrieben am: 08.08.2014 13:14:07

Hi

If IsNumeric(Rh5.text) then  Range("Berechnung!AP26") = CDbl(Rh5.Text)
oder:
Range("Berechnung!AP26") = Replace(Rh5.Text, ",", ".")
Hintergrund:
VBA und Excel reden englisch miteinander.
wenn ein Textwert in eine Zelle geschrieben wird, dann versucht Excel ganz automatsich, diesen Textwert in eine Zahl zu wandeln.
Da aber VBA und Excel immer englisch miteinander reden (undabhängig von der Sprachversion), wird hier das englische Zahlenformat mit dem Komma als Tausender- und dem Punkt als Dezimalzeichen verwendet.

das CDBL wandelt den Textwert in eine Zahl (und berücksichtigt hierbei die eingestellte Version).
Dann wird diese Zahl von VBA nach Excel übertragen und da es sich um eine Zahl handelt, muss dann auch nichts mehr gewandelt werden.

Gruß Daniel


  

Betrifft: AW: Dezimalzahlen werden zu ganzen Zahlen von: Caroline
Geschrieben am: 08.08.2014 14:20:11

Es funktioniert, vielen vielen Dank!


 

Beiträge aus den Excel-Beispielen zum Thema "Dezimalzahlen werden zu ganzen Zahlen"