Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei nach Variable benennen

Datei nach Variable benennen
klaus
Hallo Forum,
habe ein Sheet, das ich per Knopfdruck per Mail ins Web entlasse.
Funktioniert auch wunderbar, möchte aber die Datei als Anhang nach
einer Variablen aus dem Sheet selber bebennen!
Hat jemand Ahnung ?
Code bis hierher:

Private Sub CommandButton5_Click()
Sheets(2).Copy
ActiveWorkbook.SendMail "Emailadresse des Empf", "Name. " & Worksheets("tabelle1").Cells(5, 2)
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

Danke für Eure Hilfe.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datei nach Variable benennen
Russi
Hallo Klaus!
Das geht nur, wenn Du die Datei zwischenspeicherst. Ich benutze folgenden Code, um einzelne Sheets zu versenden:

Sub Mail_nur_Blatt()
Dim AktBlatt$
Dim Pfad$
AktBlatt = activesheet.Name
Pfad = Activeworkbook.Path
Sheets(AktBlatt).Select
Sheets(AktBlatt).Copy
Activeworkbook.SaveAs _
FileName:=Pfad & "\" & AktBlatt & ".xls", _
FileFormat:=xlNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
Activeworkbook.SendMail ""
Activeworkbook.Close
Kill Pfad & "\" & AktBlatt & ".xls"
End Sub

Viele Grüße
Russi
www.Russi.de.tt
Anzeige
Danke Russi
Klaus
Auf zwischenspeichern wäre ich wohl nie gekommen. Banale Lösung,
aber funzt super ! Danke.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige