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