Hallo Leute,
ich möchte in Excel pro Zeile einen Command Button einfügen, der aus der jeweiligen Zeile (und immer den gleichen Spalten), Werte per Email versendet.
Folgenden Code habe ich bereits testweise erstellt. Leider ist dieser nicht mit relativem Bezug, und ich möchte nicht dauernd das Makro anpassen. Es sind ca. 800 Zeilen!
Ich hoffe meine Beschreibung ist verständlich.
Beste Grüße Christian
*Topic verschoben, Code eingefärbt*
ich möchte in Excel pro Zeile einen Command Button einfügen, der aus der jeweiligen Zeile (und immer den gleichen Spalten), Werte per Email versendet.
Folgenden Code habe ich bereits testweise erstellt. Leider ist dieser nicht mit relativem Bezug, und ich möchte nicht dauernd das Makro anpassen. Es sind ca. 800 Zeilen!
Visual Basic-Quellcode
- Private Sub CommandButton1_Click()
- Sub MailSenden()
- On Error Resume Next
- Dim olApp As Object
- Set olApp = CreateObject("Outlook.Application")
- With olApp.CreateItem(0)
- strhtml = Range("B1").Value & " <br>"
- strhtml = strhtml & ActiveCell.Offset(-4, -10).Range("A2").Activate & " <br>"
- strhtml = strhtml & Range("E1").Value & " <br>"
- strhtml = strhtml & Range("F1").Value & " <br>"
- strhtml = strhtml & Range("G1").Value & " <br>"
- strhtml = strhtml & Range("H1").Value & " <br>"
- strhtml = strhtml & Range("I1").Value & " <br>"
- strhtml = strhtml & Range("J1").Value & " <br>"
- strhtml = strhtml & Range("K1").Value & "<br><br>"
- strhtml = strhtml & "Mit freundlichen Grüßen,<br>"
- strhtml = strhtml & "Die Objektabteilung"
- .to = "Test@test.de" 'Empfänger
- ' .cc = "kopie@an.de" 'Optional Kopie an
- ' .bcc = "bliendkopie@an.de" 'Optional Bliendkopie
- .Subject = "Ausschreibung_" & ThisWorkbook.Worksheets("Tabelle1").Range("B1")
- .htmlbody = strhtml
- .Display 'Zeigt die Mail an
- ' .send 'Optional Mail sofort senden.
- End With
- Set olApp = Nothing
- End Sub
Ich hoffe meine Beschreibung ist verständlich.
Beste Grüße Christian
*Topic verschoben, Code eingefärbt*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()