Email Kopie TB ohne MappenNr?
25.07.2005 11:53:31
GeorgK
ich versende mit nachfolgendem Makro die Kopie eines Tabellenblattes. Wie kann ich dem TB einen Namen mitgeben (bisher immer nur Mappe?)?
Ich möchte, dass die Kopie den Namen aus dem Zellinhalt A1 der Kopie erhält. Ist das möglich?
Sub SendenTab30()
Application.ScreenUpdating = False
Sheets("Aktuell").Select
Dim wks As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wks = ActiveSheet
Worksheets(Range("AD1").Value).Copy
ActiveWorkbook.SendMail wks.Range("AE1").Value, wks.Range("AF1").Value
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Vielen Dank für jede Hilfe
Grüße
Georg