ich habe folgendes Problem:
Ich habe eine Arbeitsmappe mit ca. 8 Tabellen.
Davon möchte den Inhalt der Tabelle 7 durch
klick auf eine Schaltfläche per Email versenden.
Geht das irgendwie?
Danke für Hilfe
Uwe
Sub Mail_One_Sheet()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
Sheets("Tabelle7").Copy '<--- Tabellenname anpassen!
Set wb = ActiveSheet
With wb
.SaveAs "Teil von " & ThisWorkbook.Name _
& " " & strdate & ".xls"
.SendMail "try.to@guess.it", _
"Das ist der Betreff:"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen