|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
13.12.2010 12:04:20 |
Heinz Lam |
|
|
|
13.12.2010 14:03:39 |
Severus |
|
|
|
13.12.2010 14:10:59 |
Severus |
|
|
|
13.12.2010 16:39:01 |
Heinz Lam |
|
|
|
13.12.2010 16:50:51 |
Severus |
|
|
 Aw:Aw:falscher Wert im NumberFormat Bruch ??? |
13.12.2010 22:42:17 |
Heinz Lam |
|
|
Von:
Heinz Lam |
Datum:
13.12.2010 22:42:17 |
Views:
444 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:falscher Wert im NumberFormat Bruch ??? |
Hallo Severus!
Danke!!! Du hast Recht. Die falsche Deklaration
verursachte den Fehler. Nachfolgend zur Erläuterung
und besseren Nachvollziehbarkeit - in MAKRO-FORM:
Sub test2()
'Dim Bonus As Single
'vorstehende Deklaration verursacht Fehler
'aus 1/10 wird im NeuenTabellenblatt A2: 1/9
'richtig muss Deklaration lauten:
Dim Bonus As Double
'Im aktiven Blatt steht in Zelle A1
'der als Bruch formatierte Wert 1/10
Bonus = ActiveSheet.Cells(1, 1).Value
' Neues Blatt wird durch Befehl eingefügt:
Sheets.Add
'jetzt im eingefügten Blatt die Zelle
'A2 als Bruch formatieren
'und Wert Bonus in Zelle A2 schreiben:
ActiveSheet.Cells(1, 2).NumberFormat = "# ?/?"
ActiveSheet.Cells(1, 2).FormulaR1C1 = Bonus
'ActiveSheet.Cells(1, 1).Value = Bonus
'zur Sicherheit anzeigen lassen
'bei Deklaration SINGLE ergibt Wert in Zelle einen
'Wert von 0,100000001490116 und als Bruch dargestellt 1/9
MsgBox Bonus * 100000000000000#
End Sub
DANKE für die SCHNELLE HILFE!!!
Liebe Grüße
Heinz Lam
---------------------------
Severus schrieb am 13.12.2010 16:50:51:
Ich habe hier mit
Sub test()
Dim Bonus As Double
Bonus = [A1].Value
'[C1].FormulaR1C1 = Bonus
[C1] = Bonus
MsgBox [C1]
End Sub
das Ganze getestet: Kein Problem! Weder mit noch ohne ".FormulaR1C1"
Für mich ohne weitere Infos nicht nachvollziehbar. Gibst Du das 1/10 direkt manuell ein oder auch über Code? Da könnte sonst auch noch wo ein Fehler sein.
Severus |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
13.12.2010 14:03:39 |
Severus |
|
|
|
13.12.2010 14:10:59 |
Severus |
|
|
|
13.12.2010 16:39:01 |
Heinz Lam |
|
|
|
13.12.2010 16:50:51 |
Severus |
|
|
Aw:Aw:falscher Wert im NumberFormat Bruch ??? |
13.12.2010 22:42:17 |
Heinz Lam |
|
|