Guten Morgen zusammen!
Die Chefin will ne Auswertung - natürlich in Excel und natürlich sehr hübsch aufbereite!
Meine Excel Version: 2016, deutsch
Mein Delphi: Delphi 10 (Seattle)
An sich funktioniert das mit der Formatierung in Excel ganz gut - aber von vorn:
Die Datenbank wird befragt und erzeugt mir den Inhalt der späteren Excel Tabelle.
Die Daten gebe ich dann per
OLE an Excel aus und formatiere nach den Vorgaben.
Hier ein Ausschnitt aus meinem Codeing:
Delphi-Quellcode:
oleExcelApp.Range['N2','N2'].Font.Bold := true;
oleExcelApp.Range['A16','A16'].Font.Italic := true;
oleExcelApp.Range['C3','C30'].NumberFormat := '#.##0,00';
oleExcelApp.Range['F3','F30'].NumberFormat := '#.##0,00_ ;[Rot]-#.##0,00';
In der vorletzten Zeile ist für den Zeilenbereich von C3 bis C30 das Zahlenformat 4 Ziffern vorm Komma und 2 Ziffern nach dem Komma angegeben - funktioniert.
In der letzten Zeile möchte ich den Zahlenbereich im gleich Format anzeigen, aber beim Auftreten von negativen Zahlen, sollen diese in rot angezeigt werden - funktioniert NICHT!
Der Macrorecorder von Excel zeichnet das auf (ist natürlich kein Delphi-Code):
Delphi-Quellcode:
Sub Makro1()
'
' Makro1 Makro
'
'
Range("F3:F30").Select
Selection.NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 "
End Sub
Und wenn ich das so übernehme erhalte ich eine Fehlermeldung wegen dem englischen Begriff "RED" (das ist auch schon oft hier diskutiert worden). Ersetze ich die Farbe durch den deutschen Begriff "ROT" ist die Fehlermeldung weg - aber es funktioniert nicht; ohne Meldung, ohne irgendwas.
Hat schon mal jemand dieses Format erfolgreich umsetzen können? Und wie muss dass dann programmiert werden?
Danke für Eure Mühe!