Found a solution. With a small adaptation to my existing SUB, the problem with the gray data display in Excel.xls was solved.
Everything is nice and black!
Sub
'Ausgabe PDF
DoCmd.OpenReport strReport, acViewPreview, , strWhere, acHidden, strBez
DoCmd.OutputTo acOutputReport, strReport...