Hallo liebe Forumler,
ich mache jetzt bereits schon länger an folgendem Thema rum.
Ich fahre aus Access einen Export --> Funktioniert
In Excel werden die Daten aufbereitet --> Funktioniert
Beim Export von Excel zu PowerPoint werden die Zahlenformate nicht übernommen...
Die 2 Zeilen sehen folgendermaßen aus, das fettgedruckte ist entscheidend und funktioniert nicht:
objPPT.ActivePresentation.Slides(f).Shapes("Tabelle 1").Table.Cell(1, 2).Shape.TextFrame.TextRange = Sheets(i).Cells(Rows.Count, 9).End(xlUp).Value = Format(Value, "currency") '<- Impact hier kommt auf der Folie "False"
objPPT.ActivePresentation.Slides(f).Shapes("Tabelle 1").Table.Cell(2, 2).Shape.TextFrame.TextRange = Sheets(i).Cells(Rows.Count, 10).End(xlUp).Value = Format(Value, "0.0%") '<- Likelihood %, hier kommt auf der Folie ebenfalls "False"
Wenn mir einer hier einen Tipp geben könnte, wäre das super.
Beste Grüße und schönes Wochenende,
Heiko
|