Hallo,
aus D5 heraus starte ich Excel97 mit
Quelltext
1:
| excel := GetActiveOleObject('Excel.Application'); |
und möchte nun bestimmte Zellen in einem benutzerdefinierten Format haben, nämlich '#.
0,00 "€"'.
Der Wert, der nach der Formatzuweisung in der Zelle stehen soll, kommt entweder aus der Datenbank oder aber ist hartcodiert im Quelltext.
Das ganze mache ich so:
Quelltext
1: 2:
| Excel.ActiveCell.NumberFormat := '#. 0,00 "€"'; |
oder so
Quelltext
1: 2:
| Excel.Cells.Range[r1, r2].NumberFormat := '#. 0,00 "€"'; |
oder so
Quelltext
1: 2:
| Excel.Worksheets.Item[1].range[r1, r2].Numberformat := '#. 0,00 "€"'; |
Natürlich immer nur eine Variante
Bei 2 Zellen formatiert Excel auch ordentlich (da steht dann 10,00 €), einmal ist es ein Wert aus der Datenbank und das andere mal ist der Wert hart codiert. Bei den übrigen Zellen, stört sich Excel aber nicht an das Format und in den Zellen steht z.B. 0,5 oder 8,5. Das Format für diese Zellen ist auch richtig eingetragen nur die Darstellung geht nicht.
Weiß vielleicht jemand, woran das liegen kann. Vielleicht seh ich ja vor lauter Bäumen den Wald nicht mehr.
Für evt. Hilfe schon mal 1000 Dank.
Grüße
Bise
(09.10.02 09:46 Tino) Code-Tags hinzugfügt.