Registriert seit: 08.09.2016
Version(en): 2010
Hallo zusammen,
zunächst kühle Grüße bei dem heißen Wetter
![Smile Smile](https://www.clever-excel-forum.de/images/smilies/smile.gif)
Habe eine kleine Herausforderung zu lösen, weiß aber gar nicht, ob das überhaupt geht: ich stelle in einer Excel-Tabelle Berechnungen an, die ich hier und da in Form einer Email-Antwort via Outlook wieder versende. Dies geschieht nicht als eigenständige Email sondern als Mail-Antwort auf entsprechende Anfrage. In dieser "Antwort-Email" habe ich als Signatur eine kleine Tabelle generiert, die mir dann quasi auf Knopfdruck zur Verfügung steht. Da es sich um jeweils mehrere Werte geht, möchte ich mir diesen Vorgang gern etwas vereinfachen.
Was klappt: Wert mit c&p aus einer Excel-Zelle kopieren und in ein Tabellenfeld in Outlook einfügen
Was NICHT klappt: 5 Werte untereinander aus einer Excel-Tabelle kopieren (klappt natürlich
![Wink Wink](https://www.clever-excel-forum.de/images/smilies/wink.gif)
und dann in 5 untereinanderliegende Felder der Outlook-Tabelle einfügen.
Kann das ein einfacher Bedienungsfehler sein, oder ist das schlichtweg nicht möglich?
Besten Dank vorab und viele Grüße
Klaus
Ich arbeite mit Menschen zusammen, die Excel nicht so strukturiert und themenzentriert nutzen, wie es hier meistenteils der Fall ist. Excel wird gern auch mal nur zur einfachen Darstellung und Veranschaulichung (teilweise als regelrechter Experimentierkasten oder als "Was-passiert-dann?-Maschine") genutzt und weniger zur "echten Berechnung im professionellem Einsatz". Demzufolge sind meine Fragen auch meistens nicht so logisch und strukturiert aufgebaut wie hier im Forum größtenteils üblich und erscheinen - was ihren Inhalt angeht - manchmal recht naiv. Um so mehr ist Eure Hilfe immer willkommen, vielen Dank für Eure Unterstützung
Registriert seit: 19.06.2023
Version(en): O365
21.06.2023, 17:23
(Dieser Beitrag wurde zuletzt bearbeitet: 21.06.2023, 17:51 von Elvis.)
Guten Abend,
ich erledige so etwas wie folgt. Ich erstelle im Makro (Tabelle_Senden) eine Email, die eine Tabelle (aus HTML) enthält. Dort trage ich die Werte automatisiert aus meiner Excel-Tabelle ein. (Makro Email) Beispielhaft habe ich dir die ersten drei Felder gefüllt. Da kannst Du Deine komplette Kreativität ausleben
![15 15](https://www.clever-excel-forum.de/images/smilies/pack 2/15.gif)
Code:
Sub Email()
Dim para As String
para = "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""2""><tr>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps"">" & Cells(1, 1) & "</td>"
para = para & " <td style=""border: 1px solid cornflowerblue; border-collapse:collaps"">Hartcoding</td>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps"">" & Range("B1") & "</td>"
para = para & "</tr>"
para = para & "<tr>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps""> </td>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps""> </td>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps""> </td>"
para = para & "</tr>"
para = para & "<tr>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps""> </td>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps""> </td>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps""> </td>"
para = para & "</tr>"
para = para & "<tr>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps""> </td>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps""> </td>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps""> </td>"
para = para & "</tr>"
para = para & "</table>"
Call Tabelle_Senden(para)
End Sub
Sub Tabelle_Senden(Optional para As String = "")
Dim temp As String
Dim xOtl, xOtlMail As Object
'temp = "<style type=""text/css""><!-- table, td{border: 1px solid black;border-collapse: collapse;border-color: #96D4D4;padding: 5px;}--></style>"
temp = "<h2>Hallo liebe Kolleg:innen!</h2><br>"
temp = temp & "Hier einige Hinweise/Verbesserungen<br><br>"
If para <> "" Then temp = temp & para
temp = temp & "<br><br>Danke! ♥<br><br>"
temp = temp & "Mit freundlichen Grüßen<br><br>" & uName & "<br>{Abteilung}"
temp = temp & "<br><br><font color=""gray"">gesendet aus ..... " & Cells(2, 5) & " am " & Date & " um " & Time
temp = temp & " [</font>" & _
"<a href=""" & ActiveWorkbook.Path & """>" & ActiveWorkbook.name & "</a>" & _
"<font color=""gray"">] Tabelle {</font><font color=""forestgreen"">" & _
ActiveSheet.name & "</font><font color=""gray"">}</font>"
'Email erstellen und öffnen:
On Error Resume Next
Set xOtl = CreateObject("Outlook.Application")
Set xOtlMail = xOtl.CreateItem(0)
With xOtlMail
.To = "Calafati@mail.com"
.cc = ""
.BCC = ""
.Subject = "[Support] Ersteller: " & uName
.HTMLBody = .HTMLBody & temp
'.attachments.Add = pfad & "\" & datei 'funktioniert nicht!
.Display
End With
Set xOtl = Nothing
Set xOtlMail = Nothing
End Sub
Und falls die ganze Tabelle aus Excel zu HTML werden soll schau hier:
http://www.xltips.de/ftxt/vba-pur/wandler/table2htm.htm (Hier im Forum bei Andre Schau auf der Webseite)
![Heart Heart](https://www.clever-excel-forum.de/images/smilies/pack 2/heart.gif)
Grüsse
"Nur vom Geben wird man reich!" Gerhard Schöne in "Spar deinen Wein nicht auf für morgen"
Registriert seit: 08.09.2016
Version(en): 2010
Hallo Elvis,
zunächst ganz lieben Dank für die Mühe, die Du Dir gemacht hast.
Aber wenn ich das richtig verstehe, geht es bei Dir um eine per Macro ERSTELLTE Tabelle, richtig?
Bei mir ist es so, daß die zu kopierenden Daten quasi in einen bestehenden Email-Verkehr (also als Antwort) mit eingebunden werden.
Es ist jetzt auch nicht die absolute Masse an Daten, aber eben doch so viel, daß ich nicht 10x c/p machen möchte, wenn sich das umgehen lässt.
Wahrscheinlich hat das wohl doch mit den unterschiedlichen Tabellenformaten zu tun?
Beste Grüße
Klaus
Ich arbeite mit Menschen zusammen, die Excel nicht so strukturiert und themenzentriert nutzen, wie es hier meistenteils der Fall ist. Excel wird gern auch mal nur zur einfachen Darstellung und Veranschaulichung (teilweise als regelrechter Experimentierkasten oder als "Was-passiert-dann?-Maschine") genutzt und weniger zur "echten Berechnung im professionellem Einsatz". Demzufolge sind meine Fragen auch meistens nicht so logisch und strukturiert aufgebaut wie hier im Forum größtenteils üblich und erscheinen - was ihren Inhalt angeht - manchmal recht naiv. Um so mehr ist Eure Hilfe immer willkommen, vielen Dank für Eure Unterstützung
Registriert seit: 08.09.2016
Version(en): 2010
Lieben Dank nochmal, habe mir jetzt beholfen und es funktioniert ausreichend
Ich arbeite mit Menschen zusammen, die Excel nicht so strukturiert und themenzentriert nutzen, wie es hier meistenteils der Fall ist. Excel wird gern auch mal nur zur einfachen Darstellung und Veranschaulichung (teilweise als regelrechter Experimentierkasten oder als "Was-passiert-dann?-Maschine") genutzt und weniger zur "echten Berechnung im professionellem Einsatz". Demzufolge sind meine Fragen auch meistens nicht so logisch und strukturiert aufgebaut wie hier im Forum größtenteils üblich und erscheinen - was ihren Inhalt angeht - manchmal recht naiv. Um so mehr ist Eure Hilfe immer willkommen, vielen Dank für Eure Unterstützung