[EXCEL] Benötige Hilfe bei VBA Code

[BigMat]

Hallo Gemeinde,

Ich habe hier ein VBA Code der eine Exceltabelle aus einer Mappe als E-Mail versenden soll. Mein Knackpunkt ist das bei der Kontaktperson der Name aus D7 in Times New Roman rauskommt und der E-Mail Text als Arial. Wie bringe ich nun den Kontaktnamen auch als Arial raus?
Für Eure Hilfe danke ich jetzt schon mal.
BigMat

Hier mal der Code:

Sub Tabelle1_versenden_als_EMail()

' Verweis auf Microsoft Outlook Bibliothek setzen
Dim MyMessage As Object, MyOutApp As Object
Dim Text, Sig As String
Dim Bezeichnung As String ' 1) oder As Range
Dim Kontaktperson As String ' 2) oder As Range
Bezeichnung = [Tabelle1!D4] ' 1)
'Bezeichnung = "Test"
Kontaktperson = [Tabelle1!D7] ' 2)
'Kontaktperson = "Kontaktperson"
Dim strName As String

Set MyOutApp = CreateObject("Outlook.Application")
'Nachrichtenobjekt erstellen
Text = "<FONT face='Arial, Helvetica, sans-serif' size=2>Lieber XXXX<BR><BR>Dürfen wir Euch " & _
"bitten beiliegende Tabelle1 auszuführen." &
"<BR><BR>Besten Dank und liebe Grüsse<BR><BR> </FONT>" & Kontaktperson

Set MyMessage = MyOutApp.CreateItem(0)

strName = ActiveWorkbook.Path & "\Tabelle1"
Format(Now, "DD.MM.YYYY, Zeit hh.mm") & ".xls"

Application.ScreenUpdating = False
Sheets("Tabelle1").Copy
ActiveSheet.Name = "Tabelle1"
ActiveWorkbook.SaveAs strName

With MyMessage
.Display]
.To = Muster@Muster.ch
.Subject = "Tabelle1 für " & Bezeichnung
.Attachments.Add ActiveWorkbook.FullName
On Error Resume Next
Sig = .HTMLBody
If Err.Number <> 0 Then
Err.Clear
End If
On Error GoTo Fehler
.HTMLBody = ""
.HTMLBody = Text & Sig
.Save
End With
ActiveWorkbook.Close
Kill (strName

Meldung:
MsgBox ("Tabelle1 wurde erfolgreich versendet.")
Application.Goto Sheets("Tabelle1").Range("A1")
Application.ScreenUpdating = True

Set MyOutApp = Nothing
Set MyMessage = Nothing

Exit Sub

Fehler:
MsgBox "Fehler " & Err.Number & ": " & Err.Description, vbExclamation

End Sub

 

[Officer]

Hallo BigMat

Und in der Exceltabelle ist es wie formatiert?

 

[romansvillage]

Text = "<FONT face='Arial, Helvetica, sans-serif' size=2>Lieber XXXX<BR><BR>Dürfen wir Euch " & _
"bitten beiliegende Tabelle1 auszuführen." &
"<BR><BR>Besten Dank und liebe Grüsse<BR><BR> </FONT>" & Kontaktperson

Funktionierts denn so?

Text = "<FONT face='Arial, Helvetica, sans-serif' size=2>Lieber XXXX<BR><BR>Dürfen wir Euch " & _
"bitten beiliegende Tabelle1 auszuführen." & 
"<BR><BR>Besten Dank und liebe Grüsse<BR><BR>" [B]& Kontaktperson[/B] & "</FONT>"

 

[BigMat]

Yes so gehts

Hallo Romansvillage

" & Kontaktperson & "</FONT>" funktioniert. Was so ein & Zeichen alles ausmachen kann.
Ich wusste das es irgend ein kleines Zeichen ist, dass mir die Formatierung nicht richtig gemacht hat.

Besten Dank nochmals.

Liebe Grüsse
BigMat

@Officer: Die Formatierung im Excel wäre auch Arial gewesen, wird aber durch den VBA Code übersteuert. Ich könnte somit im Excel eine völlig andere Schriftart verwenden im E-Mail wäre es dann Arial.