Dateiname im Makro vergeben

Hallo Forum,
ich habe mir aus dem Archiv ein Makro gebastelt. Und es funktioniert. *froi*
Nun muss ich dieses Makro für einen Rechner bei meinem Freund noch anpassen und weiss nicht wie.
Hier zu meinem Problem:
Ich habe mir ein Makro geschaffen, dass ein Tabellenblatt per eMail versendet werden kann. Die Mappe, die jetzt versendet wird, heißt dann Mappexy.xls
Kann ich für den Dateinamen z. B. den Inhalt der Zelle A2 nehmen? Wenn ja, wie?

Der Teil im Makro zum versenden des Tabellenblatts sieht so aus:
...........
Sheets("eMail").Copy
ActiveWorkbook.SendMail "eMail@Adresse.de", "Tipp"
ActiveWindow.Close
Application.DisplayAlerts = True
Sheets("eMail").Visible = False
End Sub
Danke für Eure Hilfe schon mal im voraus.
Gruß
Ralf

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

dim TempFile as string ActiveWorkbook.SendMail "eMail@Adresse.de", "Tipp" TmpFile = ActiveWorkbook.FullName ActiveWindow.Close Kill TmpFile 'hier wird die Datei gleich wieder gelöscht Application.DisplayAlerts = True Sheets("eMail").Visible = False End Sub

So, nun funktioniert es nicht mehr.
Ich weiß leider ned warum. Matthias kannst Du mir helfen?
Ich habe jetzt mal das ganze Makro angehängt.


Sub tippzettel_eMail()
Dim wsName As String
Dim blatt As Integer
wsName = ActiveSheet.Name
Application.DisplayAlerts = False
Sheets("eMail").Visible = True
Sheets(wsName).Range("D6:D14").Copy
Sheets("eMail").Range("B4").PasteSpecial Paste:=xlValues
Sheets(wsName).Range("K6:K14").Copy
Sheets("eMail").Range("E4").PasteSpecial Paste:=xlValues
Sheets(wsName).Range("D17:D25").Copy
Sheets("eMail").Range("B15").PasteSpecial Paste:=xlValues
Sheets(wsName).Range("K17:K25").Copy
Sheets("eMail").Range("E15").PasteSpecial Paste:=xlValues
Sheets(wsName).Range("D28:D36").Copy
Sheets("eMail").Range("H4").PasteSpecial Paste:=xlValues
Sheets(wsName).Range("A2:G2").Copy
Sheets("eMail").Range("A2").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Sheets("eMail").Select
Range("A1").Select
Sheets(wsName).Select
Range("A1:F1").Select
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Sheets("eMail").Range("A2")
Dim TempFile As String
ActiveWorkbook.SendMail "email@adresse.de", "Formel 1 Tippzettel"
TmpFile = ActiveWorkbook.FullName
ActiveWindow.Close
Kill TmpFile 'hier wird die Datei gleich wieder gelöscht
Application.DisplayAlerts = True
Sheets("eMail").Visible = False
End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread