Thema Datum  Von Nutzer Rating
Antwort
13.12.2010 12:04:20 Heinz Lam
NotSolved
Blau Aw:falscher Wert im NumberFormat Bruch ???
13.12.2010 14:03:39 Severus
NotSolved
13.12.2010 14:10:59 Severus
NotSolved
13.12.2010 16:39:01 Heinz Lam
NotSolved
13.12.2010 16:50:51 Severus
NotSolved
13.12.2010 22:42:17 Heinz Lam
NotSolved

Ansicht des Beitrags:
Von:
Severus
Datum:
13.12.2010 14:03:39
Views:
395
Rating: Antwort:
  Ja
Thema:
Aw:falscher Wert im NumberFormat Bruch ???
Heinz Lam schrieb am 13.12.2010 12:04:20:


Liebe User-Gemeinde!

Ich habe folgendes Problem:

In einer Zelle des Tabellenblattes ist ein sog. Wert "Bonus" als
Burch einzugeben: z. B. 1/10.

Der VBA-Code ließt diesen Wert aus (Variable -deklariert als single -
lautet auch Bonus)

und fügt ihn in einer sog. Langberechnung in eine Zelle ein:

"'ActiveSheet.Cells(Zelle, Spalte).NumberFormat = "# ?/?"
ActiveSheet.Cells(Z, sp + 1).FormulaR1C1 = Bonus"

Leider lautet der Wert in der Langberechnung nun:
0,100000001490116 und wird als Bruch mit 1/9 dargestellt.
Richtig müßte er 1/10 lauten.

Wer kann mir da helfen.

Besten Dank im voraus.

Liebe Grüße
Heinz Lam


Versuchs mal mit
.NumberFormat = "# ??/??"
Kann sein, daß bei einstelligen Brüchen falsche Werte berechnet werden.
Im übrigen sehe ich nicht ganz klar. Korrigiere mich, wenn ich mich irre!
Du liest den Wert aus ActiveSheet.Cells(Zeile, Spalte) in die Variable "Bonus" ein:
Bonus = ActiveSheet.Cells(Zeile, Spalte)
Diese Zelle ist mit .NumberFormat = "# ?/?"
formatiert.
Anschließend schreibst Du den Wert Bonus in die Zelle
ActiveSheet.Cells(Z, sp + 1). Richtig?
Warum dann
ActiveSheet.Cells(Z, sp + 1).FormulaR1C1 = Bonus
Du schreibst doch keine Formel in die Zelle!
Also
ActiveSheet.Cells(Z, sp + 1) = Bonus

Ansonsten sehe ich nicht, warum das Problem auftreten sollte, es sei denn Du hast vor dem Schreiben in Zelle ActiveSheet.Cells(Z, sp + 1) noch andere Operationen, die das Problem verursachen.

Severus

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
13.12.2010 12:04:20 Heinz Lam
NotSolved
Blau Aw:falscher Wert im NumberFormat Bruch ???
13.12.2010 14:03:39 Severus
NotSolved
13.12.2010 14:10:59 Severus
NotSolved
13.12.2010 16:39:01 Heinz Lam
NotSolved
13.12.2010 16:50:51 Severus
NotSolved
13.12.2010 22:42:17 Heinz Lam
NotSolved