Daten aus Excel-Tabelle (mehrere Zellen) in Outlook Tabelle einfügen möglich?

[Calafati]

Hallo zusammen,

zunächst kühle Grüße bei dem heißen Wetter

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 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

[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 

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"">&nbsp;</td>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps"">&nbsp;</td>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps"">&nbsp;</td>"
para = para & "</tr>"
para = para & "<tr>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps"">&nbsp;</td>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps"">&nbsp;</td>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps"">&nbsp;</td>"
para = para & "</tr>"
para = para & "<tr>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps"">&nbsp;</td>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps"">&nbsp;</td>"
para = para & "<td style=""border: 1px solid cornflowerblue; border-collapse:collaps"">&nbsp;</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! &hearts;<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 & "&nbsp;&nbsp;&nbsp;[</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)

[Calafati]

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

[Calafati]

Lieben Dank nochmal, habe mir jetzt beholfen und es funktioniert ausreichend