Tabellenblatt per Mail senden
08.05.2006 10:06:36
Torge
kann mir jemand folgenden Code anpassen, habe diesem auch hier aus dem Forum.
Mittels Button wird das Blatt in eine neue Mappe kopiert, per Mail versand
und die Mappe wieder gelöscht. Möchte gern die Empfängeradresse vorgeben und wenn es geht, zu dem einen Blatt noch 3 ausgeblendete Tabelleblätter mit versenden. Das soll zwar gehen aber ich weiss leider nicht wie.
"
Sub BlattSenden()
Dim DateiName As String
Sheets("Meine Mappe").Copy
With ActiveWorkbook
.SaveAs "Meine Mappe"
DateiName = .FullName
.Sheets(1).Name = "Meine Mappe"
Application.Dialogs(189).Show "", ActiveSheet.Name
.Close False
End With
Kill DateiName
End Sub
Vielen vielen Dank an dieser Stelle schon mal.
Gruß Torge