es gibt ja die Möglichkeit, eine Arbeitsmappe als pdf per Mail zu versenden siehe Anlage
https://www.herber.de/bbs/user/54380.xls
Ist es möglich auch nur das aktuelle Tabellenblatt als pdf per mail zu versenden?
Gruß
TOM
Sub Emil()
'E-mail senden
Sheets("DeinTabellenName").Select 'anpassen
ActiveSheet.Range("A1:F39").Select 'anpassen
'Das anzeigen der Envelope Commandbar ist unabdingbar
ActiveWorkbook.EnvelopeVisible = True
'Nun werden die Adressen vergeben
With ActiveSheet.MailEnvelope
.Introduction = "---blubberblubber ---" 'anpassen
.Item.To = "willi@bald.com" 'anpassen
.Item.Subject = "---blubber ---" 'anpassen
.Item.Send
End With
End Sub
Gruss
erwin