beim Dateiversand entsprechende Farben übernehmen
11.10.2005 11:28:02
Matthias
habe mal wieder ein Problem und weiß nicht ob es so einfach zu lösen ist.
Ich möchte bestimmte Tabellenblätter aus der Excel-Mappe per mail versenden. Der Schwierige an der Sache ist, dass der Empfänger auch meine benutzten Farben sehen soll. Leider werden diese automatisch in die vorgegebenen Standardfarben umgewandelt. Wie mache ich das?
Sub Versand()
Sheets(Array("Akt. ChanceRisiko-Verhältnis", "Rendite und Sicherheit", _
"Risikoeinschätzung")).Copy
ActiveWorkbook.SendMail "bla.bla@web.de", "Auswertungsunterlagen"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub