VBA Guru gesucht... mit ein Herz für ein Anfänger.
Habe hier im Forum und in anderen Foren nach eine passende Lösung gesucht, doch ohne Erfolg. Need Help, Langsam gehen mir auch meine letzten VBA Gehirnzellen verloren.
Möchte von einer Excel Datei nur 2 oder 3 ausgesuchte Blätter in „einer“ PDF Datei umwandeln und die in eine E-Mail erscheinen lassen wo ich Manuel auf senden drücken kann.
Anbei die Datei und den Code den ich hier im Forum gefunden habe der fast alles macht …außer dass es 2 oder 3 Blätter in eine PDF nicht zusammenfügt, und diese pdf datei in einer Mail nicht einfügt und nicht auf mich wartet das ich auf senden drücke.
Moin! Verrate doch zunächst mal, welches bei Dir "ausgewählte Blätter" sind.
Den ausgeschrieben Monatsnamen des Vormonats (also Oktober) erhältst Du mittels Sheets(Application.GetCustomListContents(8)(Month(Date)-1)) oder einfacher mittels Sheets(MonthName(Month(Date)-1))
Da bei Dir die Blätter so schön sortiert sind, auch ganz einfach mit Sheets(Month(Date)-1)
Um eine neue Datei mit nur einem Blatt zu erstellen, nimmst Du Sheets(x).Copy Wenn es mehrere Blätter sein sollen, nach diesem Schema: Sheets(Array("Februar", "Jahresübersicht")).Copy
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Die ausgewählten Blätter werden von Namens Manager genommen, bzw. vorher mit strg + F3 gemacht. Im Code findest du FileName = Create_PDF_Sheet_Level_Names(NamedRange:="addtopdf", dies ist der Name das ich in den jeweiligen sheets eingetragen habe. Ich Weiß….alles zu umständlich doch so brauch ich es…Frage bitte nicht warum….ein Anfänger ist immer im Irrweg :22:
Brauche Hilfe um die pdf Datei die durch den Code gemacht wird sich automatisch in die E-Mail einfügt und ich dann auswählen kann ob ich es sende oder nicht…so wie es jetzt tut.
Hey in der Datei kannst du jetzt mehrere Tabellenblätter aussuchen die zusammengefasst werden. Leider kenne ich mich mit dem umwandeln der pdf nicht wirklich aus. Da musst du dann schauen oder noch einer schaltet sich ein und ein übernimmt ab hier. Aktuell kannst du einfach die Tabellenblätter aussuchen aus den eine neue Datei erstellt wird. Muss im Prinzip nur noch umgewandelt werden und dann per Mail raus.
Danke elamigo, doch dies ist nicht das was ich suche. Möchte keine UserForm einbauen.
Es geht mir nur das ich die pdf Datei (die der Code macht) in die E-Mail einfügen kann...alles andere funktioniert wie es sein soll.
Imgrunde, wie kann ich in den vorhandenen code ein Befehl so einbauen das es sich die pdf Datei automatisch in die E-Mail einbindet....no more no less :17:
warum es bei dir funktioniert, weiß ich auch nicht so genau. Es kann sein das du Excle 2016 benutzt und da tut es einfügen nach dem zweiten mal...wo es das erste mal die Datei erstellt hat und meistens in C:\Users\Administrator\Dokumente\*.pdf abspeichert.
Ändere den namen des pdf und versuche es dann noch einmal, glaube nicht das es sich dann automatisch einfügt.
FixedFilePathName:=" hier neuen namen eingeben.pdf", _
Bei excel 2007 bis 2013 plus tut es nicht...und schön wäre es wenn dies auch in diesen versionen es tuen könnte, da jeder von den kolegen nicht die selbe version in sein pc hat.
Irgendwo ist da ein Bug...doch da sind meine vba kentnisse nicht ausreichend um es zu verstehen wo der fehler sein könnte.
für ein Anfänger.
…außer dass es 2 oder 3 Blätter in eine PDF nicht zusammenfügt, und diese pdf datei in einer Mail nicht einfügt und nicht auf mich wartet das ich auf senden drücke.
