Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text aus Excel in Mail einfügen HTML

Forumthread: Text aus Excel in Mail einfügen HTML

Text aus Excel in Mail einfügen HTML
17.11.2018 09:46:48
Marquardt
Guten Morgen,
ich habe ein Problem und vielleicht kann mir jemand helfen.
Ich habe in einer Zelle einen Text aus mehreren Teilen mit "Verketten" zusammengesetzt.
Jetzt möchte ich den Text in eine Mail kopieren. Das alles habe ich schon geschafft.
Mein Problem eins ist, dass beim Kopieren in die Mail alle Absätze verschwunden sind und ich nur noch einen fließenden Text habe.
Problem zwei. Ich habe die Schriftart und die Größe versucht festzulegen. Schriftart funktioniert, Schriftgröße aber nicht.
font face=""Calibri""
Font.size=11
Der Text bzw. die Verkettung steht in Zelle C43.
Vielleicht hat jemand Zeit einmal zu schauen und eine Idee wie ich den Text aus Excel in die Mail (mit Absatz) überführen kann.
Gruß
Detlef
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text aus Excel in Mail einfügen HTML
17.11.2018 11:23:17
Sepp
Hallo Detlef,
zeig den ganzen Code.
 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: Text aus Excel in Mail einfügen HTML
17.11.2018 12:24:07
Marquardt
Hallo Sepp,
mir geht es um die Schriftgröße in der Mail.

Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.GetInspector
.To = Sheets("Firmen").Range("c32").Value
.CC = Sheets("Firmen").Range("c33").Value
.BCC = Sheets("Firmen").Range("c34").Value
.Subject = ThisWorkbook.Worksheets("Firmen").Range("c40")
.HTMLBody = "" & Sheets("Firmen").Range("c43").Value & . _
HTMLBody
.Display
Ich hätte den Code schon mit eingefügt, aber den Teil der für die Schriftart und die Größe zuständig ist wird nicht angezeigt. Hier wird die Schriftgröße gleich im Text geändert. Hier mache ich wohl etwas falsch!
Gruß
Detlef
Anzeige
Glaskugel
17.11.2018 11:28:48
RPP63
Moin!
Ich kann Dir nicht wirklich folgen.
Verkettest Du den Text in einer Zelle mit Zeilenumbruch?
Dann gibt es keine echten "Absätze".
Zeig doch mal die Datei.
Gruß Ralf
AW: Glaskugel
17.11.2018 12:10:58
Marquardt
Hallo Ralf,
Du hast recht! Beim Verketten wird der "Zeilenumbruch" mit Zeichen(10) dargestellt. Aber wenn ich den Text aus der Zelle in die Mail (HTML) kopiere, werden die Zeilenumbrüche nicht mehr dargestellt.
In einer Mail ohne HTML ist das möglich. Hier wird aber die Signatur nicht richtig dargestellt.
Gruß
Detlef
Anzeige
AW: Glaskugel
17.11.2018 12:17:21
RPP63
Ich hatte nicht Recht! ;)
Aber gut, in HTML ist der Zeilenumbruch nicht Chr(10), sondern (ohne Leerzeichen)
https://wiki.selfhtml.org/wiki/HTML/Textauszeichnung/br
Du musst also =WECHSELN(DeinText;ZEICHEN(10);"")
(wieder ohne Leerzeichen)
Gruß Ralf
AW: Glaskugel
17.11.2018 12:51:50
Hajo_Zi
Hallo Ralf,
fehlt da nicht hinter Br "/"

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
<br> ist solitär u.d.WebSite-Aufruf fktt auch so!
17.11.2018 15:28:34
Luc:-?
:-?
AW: Glaskugel
17.11.2018 16:25:23
Marquardt
Hallo Ralf,
was Du mit der Anspielung "Ich hatte Recht!" meinst, verstehe ich nicht ganz. Aber gut.
Das mit dem "Wechseln" ist einfach super!! Damit hast Du mir eine Menge Arbeit erspart.
Ich wünsche Dir noch ein schönes WE.
Gruß
Detlef
AW: Text aus Excel in Mail einfügen HTML
17.11.2018 15:39:41
Karl-heinz
Hi Detlef,
falls Deine Frage noch nicht gelöst ist, hier noch mal ein Ansatz:
Leider hast Du nicht geschrieben, wie Du Deinen Text in die Mail kopiert. Manuell aus einer Zelle?
Falls es im Rahmen einer VBA-Routine ist, mit z.B. ".html.body=", hätte ich da vielleicht etwas für Dich. Der nachfolgende Code ermittelt Text und einige Formatparameter aus der angegebenen Zelle und setzt diese in HTML um. 
Sub Test()
Debug.Print GetFont(Range("A1"))
End Sub


Function GetFont(Obj As Range) As String
Dim T1 As String, T2 As String
With Obj.Font
If .Bold Then T1 = "<strong>": T2 = "</strong>"
If .Italic Then T1 = T1 & "<i>": T2 = T2 & "</i>"
If .Underline = xlUnderlineStyleSingle Then T1 = T1 & ""<u>": T2 = T2 & "</u>"
GetFont = T1 & "<span style='font-size:" & .Size & "pt;font-family:" _
& .Name & ";color:#" _
& Right$("0" & Hex(.Color And vbRed), 2) _
& Right$("0" & Hex((.Color And vbGreen) \ &H100), 2) _
& Right$("0" & Hex((.Color And vbBlue) \ &H10000), 2) _
& "'>" & Replace(Obj.Value, vbLf, "<br>") & "</span>"<br>" & T2
End With
End Function
Ansonsten vermute ich, dass Deine Angabe zur Schriftgröße in normalem, alten Font-Size-Tag umgesetzt wird. Da gibt es nur 1,2,3,4,5 aber nicht 11. Du müsstest die Pt-Form innerhalb eines Styles verwenden.
Und Hajo's Einwand ist nicht relevant. Die Urform "<br>" ist ohne "\" und funktioniert noch bestens.
viele Grüße
Karl-Heinz
Anzeige
AW: Text aus Excel in Mail einfügen HTML
17.11.2018 16:16:41
Marquardt
Hallo Karl-Heinz,
vielen Dank für die Antwort.
Super.
Ein schönes WE noch.
Gruß
Detlef
;

Forumthreads zu verwandten Themen

Zeilenumbruch, wenn Textbox in Mail eingefügt wird
a_ke

Hallo,
ich habe in einer Userform mehrere Multiline-Textboxes (txt1, txt2, txt3). Da hier mehr als 1024 zeichen eingegeben
werden können, habe ich Probleme beim darstellen im Ausdruck und beim Export/Import.
Deshalb möchte ich jede Zeile so wie diese in der Textbox dargestellt wird...
21.02.2009 15:08:37
Thread-ID: 1052631
7 Beiträge
Anzeige
Text aus Zelle in MsgBox einfügen.
Wolfgang

Hallo,
über eine Checkbox wird, sofern diese markiert wird, eine MsgBox angezeigt. Wie kann ich erreichen, dass aus einem Tabellenblatt "Steuerung" der Text aus Zelle E20 mit eingefügt werden kann?
MsgBox "Bitte folgende Hinweise beachten:"......... und dann der Text aus Zelle E20.
...
08.07.2009 21:08:52
Thread-ID: 1087280
5 Beiträge
Leistungstexte in RE per SVERWEIS einfügen
Jana

Hallo Leute,
könnt ihr mir mal aus die Sprünge helfen...
Ich möchte Rechnungen in Excel schreiben und die benötigten Leistungstexte mittels SVERWEIS ergänzen.
Wie kann ich das Suchkriterium (eine Nummer) ausblenden, so daß es auf der Rechnung nicht erscheint, mir jedoch den Leistung...
18.08.2009 00:11:03
Thread-ID: 1096593
11 Beiträge
Anzeige
Kopierten Text in E-Mail einfügen | Herbers Excel-Forum
Urmila
Hallo alle zusammen,
und schon habe ich eine andere Frage...
Mit dem folgenden Code generiere ich eine E-Mail im Excel Dim OutLookJob As Object, mymail As Object, month As Integer, year As Integer month = Format(Date, "MM") year = Format(Date, "YYYY") Set OutLookJob = CreateObject("Outlook....
13.01.2010 15:44:58
Thread-ID: 1129549
5 Beiträge
Anzeige
TextBox - kontextMenü um einen Hyperlink einfügen
Frank

Hallo euch Allen und vorab frohe Ostern!!!
Meine Frage: Wie kann ich erreichen, dass wenn ich eine TextBox in einer UF ansteuere sich ein Kontextmenü öffnet, so dass ich dann in die TextBox einen Hyperlink eingeben kann. Wer weiß Rat?
Vorab Danke!!!
Gruß Frank H.!!!
31.03.2010 21:12:34
Thread-ID: 1149714
12 Beiträge
Text aus Excel mit Formatierung in Mail übernehmen
MB

Hallo zusammen,
ich habe mir mit tatkräftiger Unterstützung des Forums einen code gebastelt, der aus Excel heraus eine eMail öffnet und mit Infos befüllt.
Option Explicit Public sign$ Sub SendMessage(sign) Dim oOL As Object Dim oOLMsg As Object Dim oOLRecip As Object Set oOL = CreateObj...
05.08.2011 14:31:03
Thread-ID: 1225012
5 Beiträge
Textfeld in Userform mit E-Mail
amintire

Hallo alle zusammen,
wenn ich in Excel Tabelle eine E-Mail Adresse eingebe, ist automatisch die verlinkung zum Lotus Notes.
Wie bekomme ich das hin dass das genauso funktioniert in einem Textfeld ?
Vielen dank für antworten.
Gruß Amina
05.09.2011 14:50:01
Thread-ID: 1228664
2 Beiträge
Anzeige
Attachmentname in E-Mail Nachicht einfügen
Seppel

Hallo VBA Gemeinde,
Über ein Exeldatei lasse ich eine E-Mail generieren, das funktioniert so weit auch alles mit dem hier unten angegbenen Code. Ich möchte aber gern noch in den Mail Body (Nachichtentext) den Namen der angefügten Datei mit einbinden.
Im Nachichtentext wäre das z.B. nach...
24.09.2011 07:05:04
Thread-ID: 1231295
5 Beiträge
HTML Tabelle als Grafik in E-Mail einfügen
steffen

Hallo!
ich habe folgendes Problem und hoffe ich finde hier helle Köpfe die mit weiterhelfen :-)
Ich erstelle autom. eine E-Mail: Dim objOutlook As New Outlook.Application Dim ObjMessage As MailItem Set ObjMessage = objOutlook.CreateItem(olMailItem) With ObjMessage .BodyFormat = 1 .HTML...
05.09.2012 13:22:36
Thread-ID: 1277492
3 Beiträge
Text aus mehreren Zellen autom. in eine einfügen?
Felix

Ich würde gerne in Zelle I15 dieser Tabelle automatisch alle Email-Adressen aus den Zellen in Spalte G einfügen, neben denen in E und F eine 1 steht.
https://www.herber.de/bbs/user/81941.xlsx
Das mit dem Summenprodukt kriege ich noch ungefähr hin, an der ganzen Formel hapert´s dann ab...
29.09.2012 18:45:45
Thread-ID: 1279996
7 Beiträge
Per Klick Text in externe Editor einfügen
nibio

Hallo profis,
Sorry wegen mein Beitrag vorher (Test), wollte es löschen aber ich glaube es geht nicht mehr. Sorry.
Ich hätte eine Frage: Sub MausPosotion_spin_0() SetCursorPos 26, 863 mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& mouse_event MOUSEEVENTF_LEFTUP, 0&...
11.01.2013 22:19:35
Thread-ID: 1293922
3 Beiträge
Text in Text einfügen per Formel
Jürgen

Guten Tag,
Kann mir jemand bitte weiter helfen
In der selbigen Spalte soll in jeder Zelle, wenn die ersten vier Zeichen Zahlen sind, ein Doppelpunkt hinzugefügt werden. Wenn in der Zelle die ersten vier Zeichen keine Zahlen sind soll nichts hinzugefügt werden.
Vielen Dank im voraus<...
23.01.2013 11:14:09
Thread-ID: 1295590
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Text aus Excel in eine HTML-Mail übernehmen

Schritt-für-Schritt-Anleitung

  1. Text in Excel vorbereiten: Stelle sicher, dass der Text, den Du in die Mail einfügen möchtest, korrekt in einer Zelle, z.B. C43, verketten wird. Achte darauf, dass Du Zeilenumbrüche nicht als Chr(10) verwendest, sondern statt dessen HTML-Tags wie <br> für Absätze.

  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Modul hinzufügen: Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  4. VBA-Code einfügen: Kopiere den folgenden VBA-Code in das Modul:

    Sub SendEmail()
   Dim objOutlook As Object
   Dim objMail As Object
   Set objOutlook = CreateObject("Outlook.Application")
   Set objMail = objOutlook.CreateItem(0)

   With objMail
       .To = "empfaenger@example.com" ' Empfänger hier einfügen
       .CC = "" ' CC hier einfügen
       .BCC = "" ' BCC hier einfügen
       .Subject = "Betreff der Mail"
       .HTMLBody = "<font face='Calibri' size='2'>" & _
                   Replace(Sheets("DeinBlatt").Range("C43").Value, vbLf, "<br>") & _
                   "</font>"
       .Display ' Oder .Send um die Mail direkt zu senden
   End With
End Sub

  5. Anpassen des Codes: Ersetze empfaenger@example.com mit der tatsächlichen E-Mail-Adresse des Empfängers und passe den Blattnamen an.

  6. Ausführen des Codes: Drücke F5, um das Makro auszuführen und die Mail zu erstellen.

Häufige Fehler und Lösungen

  • Problem: Absätze werden nicht in der Mail angezeigt.

    • Lösung: Stelle sicher, dass Du Zeilenumbrüche in Excel mit vbLf in <br> umwandelst, wie im obigen Code gezeigt.

  • Problem: Schriftgröße wird nicht wie gewünscht angezeigt.

    • Lösung: Verwende CSS für die Schriftgröße, z.B. font-size: 11pt; im Style-Tag, anstatt die Größe direkt im HTML-Tag zu setzen.

Alternative Methoden

Eine alternative Methode, um HTML in eine Mail einzufügen, ist die Verwendung von .SendKeys für das Kopieren des formatierten Textes direkt aus Excel. Beachte jedoch, dass diese Methode weniger stabil ist und von der Benutzerinteraktion abhängt.

Praktische Beispiele

  • Beispiel für HTML-Body:

    .HTMLBody = "<p style='font-family:Calibri; font-size:11pt;'>" & _
          "Dies ist ein Beispiel für HTML in einer Mail." & _
          "</p><br><p>Hier ist ein neuer Absatz.</p>"

  • Text mit Leerzeichen in HTML: Um Leerzeichen einzufügen, kannst Du &nbsp; verwenden:

    .HTMLBody = "<p>Text mit&nbsp;Leerzeichen.</p>"

Tipps für Profis

  • Verwende CSS für eine bessere Kontrolle über das Layout Deiner HTML-Mail.
  • Teste den HTML-Code in einem Browser, um sicherzustellen, dass das Layout wie gewünscht aussieht.
  • Achte darauf, dass nicht alle E-Mail-Clients HTML gleich rendern. Halte das Design einfach.

FAQ: Häufige Fragen

1. Wie kann ich HTML-Formatierungen in eine Mail einfügen?
Verwende das HTMLBody-Attribut des Mailobjekts, um HTML-Code einzufügen.

2. Welche HTML-Tags kann ich verwenden?
Die gängigen Tags wie <b>, <i>, <u>, <br> und <p> funktionieren in den meisten E-Mail-Clients.

3. Warum werden meine Zeilenumbrüche nicht angezeigt?
In HTML musst Du für Zeilenumbrüche <br> verwenden, anstelle von Excel-Zeilenumbrüchen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige