VBA Tabellenblatt sende

Hallo liebe VBA-Profies!
Ich habe folgenden Code aus dem Internet runtergeladen, der auch super funktioniert.
Der Code ist einfach und hängt das aktuelle Blatt an Outlook nur an. So will ich das auch. Weil man danach die Email frei und individuell schreiben kann.

Sub TabellenblattVerschicken()
ActiveSheet.Copy
Application.Dialogs(xlDialogSendMail).Show _
"empfänger@mailanbieter.de", "Dienstplan"
End Sub

Allerdings kann nicht die Dateiname automatisch generieren.
Dateiname soll aus folgenden drei Worten Bestehen
Dienstplan_Monat_Gruppenname
Aktueller Monat ist im: Planer!$I$2(Tabelle1)
Und Gruppenname ist im: Planer!$S$2
Planer ist der Blattname, wo sich die Zellen I2 udn S2 befinden.
Ich habe auch einige Codes aus dem Internet runtergeladen und versucht sie anzupassen. Es klappt nicht.
Anscheinend muss ich dabei viele Sachen beachten und ich kenne mich mit VBA nicht aus.
Kann mir jemand vielleicht helfen?
Danke im Voraus
LG
Ahmadi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub TabellenblattVerschicken() Dim Emp As String, Pfad As String, Datei As String Pfad = "C:\Temp\" Emp = "empfänger@mailanbieter.de" With Workbooks("Planer.xlsm") With .Sheets("Tabelle1") Datei = "Dienstplan_" & .Range("$I$2") & "_" & .Range("$S$2") .Copy ActiveWorkbook.SaveAs Datei End With End With Application.Dialogs(xlDialogSendMail).Show Emp, "Testplan" End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Option Explicit Sub TabellenblattVerschicken() Dim Emp As String, Pfad As String, Datei As String Dim WB, TB1 Set WB = Workbooks("Dienst-&Urlaubsplaner.xlsm") Pfad = "C:\Temp\" Emp = "empfänger@mailanbieter.de" Set TB1 = WB.Sheets("Tabelle1(Planer)") Datei = "Dienstplan_" & TB1.Range("$I$2") & "_" & TB1.Range("$S$2") WB.Sheets(Array("Tabelle17(MP)", "Tabelle18(MPk)", "Tabelle19(MD)")).Copy ActiveWorkbook.SaveAs Datei Application.Dialogs(xlDialogSendMail).Show Emp, "Testplan" End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

76 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Tabellenblatt sende

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

76 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread