Einzellne Text Ausgaben in Mail anders Formatieren
26.07.2013 09:43:09
Sandy
Habe Folgendes Problem. Erstmal den makro Ausschnitt da kann ichs
besser erklären.
sBodyFooter = ThisWorkbook.Sheets("Daten").Range("AE44").Value & vbCrLf & _
ThisWorkbook.Sheets("Daten").Range("AE45").Value & vbCrLf & vbCrLf & vbCrLf & _
ThisWorkbook.Sheets("Daten").Range("AE48").Value & vbCrLf & _
ThisWorkbook.Sheets("Daten").Range("AE49").Value & vbCrLf & _
ThisWorkbook.Sheets("Daten").Range("AE50").Value & vbCrLf & _
ThisWorkbook.Sheets("Daten").Range("AE51").Value & vbCrLf & _
ThisWorkbook.Sheets("Daten").Range("AF52").Value & " " & _
ThisWorkbook.Sheets("Daten").Range("AE52").Value & vbCrLf & _
ThisWorkbook.Sheets("Daten").Range("AE53").Value & _
ThisWorkbook.Sheets("Daten").Range("AE54").Value & vbCrLf & _
ThisWorkbook.Sheets("Daten").Range("AE55").Value & vbCrLf & vbCrLf & _
ThisWorkbook.Sheets("Daten").Range("AE57").Value & vbCrLf & vbCrLf & _
ThisWorkbook.Sheets("Daten").Range("AE59").Value & vbCrLf & _
ThisWorkbook.Sheets("Daten").Range("AE60").Value & vbCrLf & _
ThisWorkbook.Sheets("Daten").Range("AE61").Value & vbCrLf & _
ThisWorkbook.Sheets("Daten").Range("AE62").Value & vbCrLf & _
ThisWorkbook.Sheets("Daten").Range("AE63").Value & vbCrLf & _
ThisWorkbook.Sheets("Daten").Range("AE64").Value & vbCrLf & _
ThisWorkbook.Sheets("Daten").Range("AE65").Value & vbCrLf & vbCrLf & _
ThisWorkbook.Sheets("Daten").Range("AE67").Value
Ich Erstelle mit meiner Makro eine Email per Maus klick und davor einige Einstellungen in der Excel.
Nun geht es darum das ich eine Signatur anfügen müsste Automatisch.
Dabei müssten jedoch alle oben Angezeigten in der Schriftgröße 8 sein. Jedoch alle bis auf AE 57 und AE 67 in der Schriftfarbe Grau, AE 57 in Schriftgröße 8 Magenta und AE 67 in Schriftgröße 8 Grau und Fett. Ist dies möglich? Wenn ja wie?könnte mir jemand Helfen? :) Wäre Lieb
Mit freundlichen Grüßen
Sandy