ich möchte aus einer Mappe mit 4 Tabellen die aktuelle Mappe
die 1.) per Email versenden, dazu wird sie zunächst mit
" ActiveWorkbook.Worksheets(ActiveSheet.Name).Copy "
Leider hat die Kopie dann einen Namen wie "Mappe1",
sollte aber einen Namen haben der z.B. in Zelle C12
des Orginals steht. Wie kann ich dem aktuellen Blatt
einen Namen zuweisen?
hier das komplette Script:
Sub Email()
Dim e As String
Dim t As String
ActiveWorkbook.Worksheets(ActiveSheet.Name).Copy
' e + t wird eigentlich aus der Tabelle ausgelesen
e = "Adresse"
t = "mailname"
Application.Dialogs(xlDialogSendMail).Show e, t
ActiveWorkbook.Close savechanges:=False
End Sub
Danke für Eure Tipps,
Bernhard