Die verwendete Arbeitsmappe + 290 weitere praktische Excel Vorlagen findet ihr auf der Excelpedia Seite: www.excelpedia.at/courses/excelpedia-datenbank
Hi und vielen lieben Dank für das super erklärte Video. Da Outlook aufgrund eines fehlenden Zertifikats die Signatur nicht übernimmst, wollte ich diese ähnlich wie in deinem E-Mail Text hinzufügen. Nur wie bekomme ich so viel Text inklusive der Leerzeilen in eine Zelle? LG Maike
Hi, danke für das tolle Video. Um die Systematik zu verstehen habe ich dein Makro einmal nachgebaut.Leider scheint der Email Versand nicht zu funktioneren. Ich erhalte immer den Laufzeitfehler 91. in der Spalte SetMyAttachements wird mir auch immer Attachements=Leer angezeigt. Ich komme einfach nicht dahinter, da ich dein Makro 1:1 nachgebaut habe. Vielen Dank und viele Grüße!
Klasse Erläuterung. Das Makro funktioniert bei mir, die Email wird erstellt, aber Betreff und Inhalt bleiben leer, obwohl der Code genauso übernommen wurde und die entsprechenden Zellen, aus welchen die Daten geladen werden, den Text enthalten... Edit: Da ich mit mehreren Tabellenblättern arbeite, musste erst wieder das richtige Blatt ausgewählt werden, damit es die Zellen auf dem richtigen Blatt auswählt.
Vielen Dank für das hilfreiche Tutorial. Hat einwandfrei geklappt :) Ist es möglich mit VBA die Spalte A auf den Eintrag x prüfen zu lassen und wenn in Spalte A in einer Zelle der Eintrag = x dann starte das Script und entferne nach ablauf des Scripts den Eintrag x aus der Zelle in Spalte A ? Die Idee ist das Script automatisch ablaufen zu lassen und nicht immer den Button betätigen zu müssen. Vielen Dank für deine Mühe und Zeit :) Gruß, Sven
Sehr gut erklärtes Video. Beschreibt genau mein Problem. 👍 Eine Frage noch: Wie kann die standard Outlook-Signatur in die E-Mail hinzugefügt werden? Danke
Das Makro funktioniert super. Vielen Dank hierfür. Kann man das erzeugte PDF auch noch direkt abspeichern? Idealerweise in einen Speicherort, den ich innerhalb des Tabellenblattes noch definiere?
Hallo Freunde Ich habe mir das alles nachgebaut und bin begeistert, nun, es machen alle Fenster auf aber ich kann keine Mail verschicken oder bessegesagt es kommt keine an BITTE um HI LFE
Hi, tolle und sehr hilfreiche Videos! Ich habe da ein Problem was ich einfach nicht gelöst bekomme. Ich habe eine Excel-Datei mit 10+- Tabellenblättern und möchte diese einzeln mit dem Namen des Tabellenblattes als PDF speichern und jedes Tabellenblatt einzeln an einen E-Mailempfänger (der auf jedem Tabellenblatt in Zeile A1 steht) per Mail versenden. Das jeweils aktive Tabellenblatt habe ich hinbekommen (das gespeicherte PDF geht auf, dann geht die E-Mail mit Anhang auf), nur nicht alles auf einmal mit einem Makro, das schaffe ich nicht, kannst du mir helfen?
Hallo Johannes, zunächst ein Kompliment für das sehr gute Video. Ich habe 3 Fragen. 1. wie kann ich eine Verteilerliste (mehrere Mailadressen) in den Code integrieren? 2.Wenn ich die Mail automatisch ohne Outlook zu öffnen abschicken will, muss ich dann nur das Display wegnehmen? 3. Wie kann ich mehrere Arbeitsblätter (das aktuelle + die folgenden 6) in das PDF integrieren? Viel Dank im Voraus VG Björn
Hallo, danke für das interessante Video. Ich habe eine frage: Besteht die Möglichkeit, die PDF sowie das öffnen von Outlook auch aus einer cloud heraus, also z.b. OneDrive auszuführen? Bzw. ist es möglich die Datei aus der Cloud heraus zu öffnen und "arbeiten" zu lassen? Welche Pfade müsste man dann angeben (z.B. für das Abspeichern der PDF)? Vielen Dank schonmal
Hi. Sehr gutes Video. Eine Frage von mir: kann man das so einstellen, dass, nachdem wir die Mail geschickt haben, die Rechnungsvorlage wieder leer ist, also die zu befüllenden Felder wieder ohne Inhalt sind? Oder muss ich die Daten selbst entfernen, oder überschreiben, wenn ich eine neue Rechnung schreiben will?
Hallo! Das geht natürlich. im VBA kann zB eine Zeile ergänzt werden, dass der Inhalt der relevanten Zellen einfach gelöscht werden sollen. :) Viele Grüße
Hallo Johannes - ein echt tolles Video und eine riesige Hilfe - dennoch eine Frage - wie baue ich eine zusätzliche Abfrage ein, die es mir ermöglicht eine bestimmtes Blatt zu speichern & zu senden. Ich habe eine Exceldatei (Zeitaufzeichnungen) - erstes Blatt ist eine Übersicht in der ich gerne den Button installieren möchte Jedes weitere Blatt ist ein Monat - wenn ich den Button drücke soll eine Abfrage kommen welchen Monat bzw. welches Blatt er erstellen soll. Geht das? Lg Ruben
Hallo Ruben! Das ist grundsätzlich möglich mit einem PopUp. Oder noch einfacher: du schreibst in eine Zelle welche Exceldatei und Blatt ausgewählt werden soll. In dem VBA Code beziehst du dich dann auf diese Zelle. Also ähnlich wie hier :)
Habe die Excel-Vorlage inkl. VBA-Macro vorige Woche gekauft: PDF erstellen und auf Pfad abspeichern funktioniert, Email jedoch nicht: Fehlermeldung: Fehler beim Kompillieren Projekt oder Biblothek ich gefunden! Wo liegt der Fehler? Hat wer einen Tip hierzu?
Hallo, Vielen Dank für das Mega Video. Klappt alles super. Eine Frage hätte ich , ist es möglich das ganze als anstatt als PDF auch als .xlms zu exportieren?
Hi, vielen Dank für das Video:) Ich habe die PDF-Erstellung über deinen anderen Code programmiert, da ich immer neue PDF´s mit anderen Daten generiere. Wie bekomme ich es hin, dass die zuletzt erstellte PDF als Anhang in die Mail beigefügt wird? Wäre super nett wenn du mir weiterhelfen könntest :) Vielen Dank!
Hallo, bei mir Speichert er das PDF immer ein Ordner vor dem Ordner ab und er Speichert das PDF mit dem Ordnernamen und die von mir ausgewählte Zelle(Also wenn ich jetzt ein Ordner habe mit dem Namen "ANGEBOT" dann nimmt er den Ordner Name schreibt Ihn vor dem Eigentlichen pdf Name und Speichert es aber nicht in diesen Ordner sondern ein Ordner davor ab. Was kann die Ursache sein? LG Lutz
Vielen Dank für dieses tolle Video. Funktioniert super. Leider muss ich die PDF Dateien in Onedrive speichern und synchronisieren. Weil aber der Pfad zum Ondriveordner auf jedem Rechner unterschiedlich ist, da der ja immer im Benutzerverzeichnis liegt, funktioniert das Makro immer nur auf einen Rechner(wegen der verschiedenen Benutzernamen). Wie kann man den so etwas lösen? Wäre toll wenn du die Zeit fändest mir dabei zu helfen. Vielen Dank im voraus. LG
@@fontner vielen Dank für den tipp. Leider reichen meine VBA Kenntnisse dafür nicht aus. Da bekomme ich einen Laufzeitfehler angezeigt. Ich habe mir jetzt so geholfen, das ich die Onedrive Ordner auf den Rechnern direkt nach C: verschoben habe und somit immer der gleiche Pfad in der Zelle steht. Lg :)
Super Video und vielen Dank! :) Ich habe eine Frage und hoffe du kannst mir weiterhelfen und zwar hast du ja für die PDF Datei eine feste Markierung hinzugefügt von A1 bis G48. Wie kann man bei eine Tabelle, die man täglich aktualisiert, nur die aktualisierten Daten in ein PDF hinzufügen? Bsp. von den gesamten Tabelle will ich heute nur bestimmte Daten senden und markiere von Zeile B5 bis B10 um ein PDF herzustellen. Ich wäre Dir sehr dankbar wenn du mir weiterhelfen könntest.
Hey, ich besitz das Programm "Exel 2016" und kann dadurch nicht alle Verweise verwenden/auffinden (MS Forms 2.0, MS Office 16.0, MS Smart Tags 2.0). Gibt es eine Möglichkeit, wie auch ich es schaffen kann meine Exeldatei auf diese Art und Weise zu versenden? Vielleicht kannst du mir ja weiterhelfen:)
Hey! Leider tu ich mich da schwer, da ich selbst kein Excel 2016 verwende. Schätze es als schwierig ein, dass es hier einen Workaround gibt, wenn derartige Verweise/Funktionen nicht vorhanden sind.. :/
Ja das würde mich auch interessieren. Im Moment füge ich die Signatur immer manuell ein. Aber ansonsten funktioniert der Code einwandfrei und spart mir viel Zeit. Vielen Dank dafür ☺️
Tolles Video, ich habe noch eine Frage: Ich habe bereits ein Coding erstellt, in dem eine PDF mit aktuellem Tagesdatum & fortlaufender Nummer (falls an einem Tag mehrere PDFS erzeugt werden) erzeugt und in einem internen Netzwerklaufwerk abgelegt wird. Hier muss ich aber danach immer noch extra eine Email mit direktem Hyperlink auf die Datei an mehrere Empfänger versenden. Ist das möglich, diese Email nicht mit PDF im Anhang, sondern mit Hyperlink im E-Mail-Text zu versenden?
Hallo Tobias, das sollte auf jeden Fall gehen. Du kannst in das Textfeld der E-Mail noch einen Hyperlink mit aufnehmen. Dann muss noch definiert werden, wo der Hyperlink herkommt. Wenn die Dateien immer im gleichen Ordner liegen, kannst du diesen auch dynamisch einfach mit dem Dateinahmen zusammenbauen lassen. Alternativ findest du hier eine Übersicht, wie man Hyperlinks aus Ordnern in Excel automatisch erstellt: ua-cam.com/video/dPYsLeABA2U/v-deo.html Falls du dich nicht lange damit rumschlagen willst, können wir das auch gerne übernehmen. Wir bieten auch individuelle Excel-Dienstleistungen an. Schreib uns dazu gerne auf office@excelpedia.at eine E-Mail.
Vielen Dank für dieses hilfreiche Video! Gibt es auch eine Möglichkeit, diese Funktion ohne Button-Klick zu starten, also damit z. B. täglich zu einer bestimmten Uhrzeit automatisch eine PDF versendet wird? Danke für die Hilfe!
Hallo! Ja das geht grundsätzlich. Ich hab dazu ein ähnliches Video gemacht, wo das gezeigt wird: ua-cam.com/video/nMhmj6-_YLs/v-deo.html Hoffe das hilft. LG
Super Video. Auch für mich als Laie super umsetzbar. Ich verwende leider Mozilla Thunderbird als Mailprogramm. Wie müsste man das umschreiben, oder geht das gar nicht? Danke im Voraus!
Ich wollte gerne noch vor dem senden eine Pflichtfeld Abfrage einrichten verzweifel daran aber ein wenig. Hast du hier vielleicht einen Tipp wie ich deinen Code erweitern kann?
Hallo, kleine Frage zu deinem Video. Du speicherst die Datei lokal auf dem Deskotp ab. Gibt es eine Möglichkeit die Datei auf einem Sahrepoint abzuspreichern? Da auf die meine Datei mehrere Leute von verschiedenen Geräten zugreifen ist die Lösung mit dem Desktoppfad bei mir leider nicht möglich. Im Vordergrund steht, dass die PDF als Mail versand werden soll, ich muss diese generierte Datei nicht zwingend abspeichern, besteht die Möglichkeit die Mail mit PDF zu generieren ohne dass die Datei abgespeichert wird? Danke für die Hife :-)
@@Excelpedia die ist installiert, aber da mherere Personen von verschiedenen PCs auf die Datei zugreifen ist der Desktoppfad immer ein anderer. C:\Users\%Username%\OneDrive\Desktop
Moin, Erstmal top Video! Das mit dem PDF erstellen funktioniert auch super. Leider zeigt er mir einen Fehler bei Set OutlookMailitem = OutlookApp.CreateItem(0) Fehlermeldung: Object required Weißt du woran das liegen könnte?
Hallo, vielen Dank für dieses Video. genau das brauchte ich. ich würde gerne noch ein cc einfügen. Wie wären dann der befehl. Kann man auch zb die Range von einer anderen Tabelle aus der ExcelDatei einfügen. Ich würde gerne zb die Email Verteilerliste im Hintergrund (auf einer extra Tabelle stehen haben). Vielen Dank schonmal für die Hilfe
Super Video. Eine Frage. Bei meiner Outlook gibt es zwei Email Adressen 1 und 2. Wie soll ich die Makro Code ändern? Damit ist meine Email 2 als Versender? Aktuell gibt es eine Fehlermeldung "to für das Objekt_MailItem" und Outlook wird gar nicht geöffnet. Danke Dir!
Hallo Gemeinde , perfekt. danke hierfür. es klappt dass ich die Datei als PDF versende, ich sollte allerdings dieseDatei als Excel Geburtstage.xlsx abspeichern . wie muss ich es machen bitte ? Danke
Du kannst ans Ende der Sub schreiben: ThisWorkbook.SaveAs ThisWorkbook.Path & "\Geburtstage.xlsm" Die Datei wird als xlsm (also Excel mit Makros) gespeichert statt als xlsx, weil wir Makros in der Arbeitsmappe haben und es sonst zu einem Fehler kommt. Ich hoffe das hilft weiter :) LG Kai
Ich finde den Fehler leider nicht, wird mir als Debug-Fehler angezeigt ! Range("A1:k42").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Sub PDF_und_Senden() Dim DateiName As String DateiName = Range("K3") & Range("K2") & ".pdf" Range("A1:G48").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True Dim Outlook As Object Dim OutlookMailItem As Object Dim myAttachments As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMailItem = OutlookApp.CreateItem(0) Set myAttachments = OutlookMailItem.Attachments With OutlookMailItem .To = Range("K16") .Subject = Range("K17") .Body = Range("K37") myAttachments.Add DateiName .Display End With Set OutlookApp = Nothing Set OutlookMailItem = Nothing End Sub
Hallo Danke für das super Video. Ich hab alles so probiert nachzubauen leider bekomme ich immer einen Laufzeitfehler beim Ausführen des ersten Tests. wo könnte hier der Fehler begraben sein? LG Markus
Hallo, vielen Dank für dieses Video. genau das brauchte ich. ich würde gerne noch ein cc einfügen. Wie wären dann der befehl. Kann man auch zb die Range von einer anderen Tabelle aus der ExcelDatei einfügen. Ich würde gerne zb die Email Verteilerliste im Hintergrund (auf einer extra Tabelle stehen haben). Vielen Dank schonmal für die Hilfe
Hallo! für CC wäre es: .CC = Range("K23") Und ja natürlich kann man die Verteilerliste im Hintergrund heranziehen. Es wäre jedoch zu empfehlen, dass bei dem Befehl .To = Range("K20"), nur eine Zelle (also in diesem Fall K20) beinhaltet. Die Mail-Empfänger müssen dazwischen mit ; getrennt sein. Hoffe das hilft! LG
Servus! Erstmal danke für dein Video. Bei mir kam diese Meldung auf "Fehler beim Kompilieren: Variable nicht definiert" - dabei gehts um [ Set OutlookApp = CreateObject("Outlook.Application") ] Was kann da falsch sein? ich sitze seit einer guten halben Stunde und finde die Ursache nicht.
Ich hätte noch eine Frage. Gibt es eine Möglichkeit Outlook zu sagen welches E-Mail Konto verwendet werden soll? Jetzt wird immer das Exchange Konto verwendet, und nicht das IMAP von dem Standardmäßig gesendet werden soll. Vielen Dank im voraus.
Hallo! Schreibe zB in K19 deine Mail: max@mustermann.de Füge dann im VBA Code noch folgende Zeile (Nach .To) hinzu: .SentOnBehalfOfName = Range("K19") LG
@@Excelpedia meinst du so? With OutlookMailItem .To = Range("K3") .SentOnBehalfOfName = Range("K19") .Subject = Range("K5") & Range("L5") .Body = Range("K4") myAttachments.Add DateiName .Display End With Funktioniert leider nicht. Outlook nimmt weiterhin die Exchange Mail Adresse In der Zelle K19 Steht meine Gmail Adresse, das interessiert Outlook aber nicht. LG
@@Sturgis93 Das ist komisch - bei mir hat es geklappt, dass die Mail-Adresse geswitcht wird. Wüsste ad-hoc jetzt auch nichts, warum es nicht klappen sollte.. Sorry!
Servus. Danke für dein Video. Leider ist die komplette Zeile (Range ("A1:G48").EportAsFixedFormat Type.......) bei mir ebenfalls gelb makiert: Laufzeitfehler'-2147024773(8007007b)'. Dateiname und Pfad geprüft. Gibt es zur Lösung des Problems bereits Ideen?
dieser Fehler wurde gelöst, Dateiname war offensichtlich zu lang. Neuer Laufzeitfehler '438'....Set myAttachments = OutlookMailItem.Attechments. Verweise bei Extras gesetzt. Funktioniert trotzdem nicht. Ideen?
Hallo, bei Mir kommt immer Laufzeitfehler 424. Im Debugger wird ( myAttechments.Add DateiName ) gelb markiert. Kann mir Jemand weiterhelfen? Hier das ganze Modul falls das hilft: Sub PDF_und_Senden() Dim DateiName As String DateiName = Range("A1") & Range("B1") & ".pdf" Range("A3:AP35").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True Dim Outlook As Object Dim OutlookMailItem As Object Dim myAttachments As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMailItem = OutlookApp.CreateItem(0) Set myAttachments = OutlookMailItem.Attachments With OutlookMailItem .To = Range("AQ2") .CC = Range("AR3") & Range("AS2") & Range("AT2") & Range("AU2") .Subject = Range("C1") .Body = Range("D1") myAttechments.Add DateiName .Display End With Set OutlookApp = Nothing Set OutlookMailItem = Nothing End Sub
Hier ist der ganze Code : Sub PDF_und_Senden() Dim DateiName As String DateiName = Range("K3") & Range("K2") & ".pdf" Range("A1:G48").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True Dim Outlook As Object Dim OutlookMailItem As Object Dim myAttachments As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMailItem = OutlookApp.CreateItem(0) Set myAttachments = OutlookMailItem.Attechments With OutlookMailItem .To = Range("K16") .Subject = Range("K17") .Body = Range("K37") myAttechments.Add DateiName .Display End With Set OutlookApp = Nothing Set OutlookMailItem = Nothing End Sub
Vielen Dank für dieses sehr hilfreiche Video und auch Dir "email2489" für den Code. Wenn jetzt noch die klitzekleinen aber nicht unwichtigen Schreibfehler korrigiert werden, läuft der Code auch ;-) (ersetze 2x "Attechments" durch "Attachments" !!) ;-) Viele Grüße aus Hamburg.
Ich finde den Fehler leider nicht, wird mir als Debug-Fehler angezeigt ! Range("A1:G48").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Die verwendete Arbeitsmappe + 290 weitere praktische Excel Vorlagen findet ihr auf der Excelpedia Seite: www.excelpedia.at/courses/excelpedia-datenbank
Das Video hat mir ultra weitergeholfen. Vielen Dank! Habe statt .CC einfach mal .BCC probiert und hat reibungsfrei funktioniert. Danke dir!
Danke für das Feedback, freut mich!
Vielen Dank! Das habe sogar ich als Excel Dinosaurier geschafft! Super erklärt 📧📧📧📧
Vielen Dank für den Beitrag.
Vielen Dank für dein Feedback´!:)
Danke danke danke
Hi und vielen lieben Dank für das super erklärte Video.
Da Outlook aufgrund eines fehlenden Zertifikats die Signatur nicht übernimmst, wollte ich diese ähnlich wie in deinem E-Mail Text hinzufügen. Nur wie bekomme ich so viel Text inklusive der Leerzeilen in eine Zelle?
LG Maike
Hi, danke für das tolle Video. Um die Systematik zu verstehen habe ich dein Makro einmal nachgebaut.Leider scheint der Email Versand nicht zu funktioneren. Ich erhalte immer den Laufzeitfehler 91.
in der Spalte SetMyAttachements wird mir auch immer Attachements=Leer angezeigt.
Ich komme einfach nicht dahinter, da ich dein Makro 1:1 nachgebaut habe.
Vielen Dank und viele Grüße!
Vielen Dank:))
Freut mich, wenn man helfen konnte!
Klasse Erläuterung.
Das Makro funktioniert bei mir, die Email wird erstellt, aber Betreff und Inhalt bleiben leer, obwohl der Code genauso übernommen wurde und die entsprechenden Zellen, aus welchen die Daten geladen werden, den Text enthalten...
Edit: Da ich mit mehreren Tabellenblättern arbeite, musste erst wieder das richtige Blatt ausgewählt werden, damit es die Zellen auf dem richtigen Blatt auswählt.
Danke für deine Ergänzung!
Vielen Dank für das hilfreiche Tutorial. Hat einwandfrei geklappt :) Ist es möglich mit VBA die Spalte A auf den Eintrag x prüfen zu lassen und wenn in Spalte A in einer Zelle der Eintrag = x dann starte das Script und entferne nach ablauf des Scripts den Eintrag x aus der Zelle in Spalte A ? Die Idee ist das Script automatisch ablaufen zu lassen und nicht immer den Button betätigen zu müssen. Vielen Dank für deine Mühe und Zeit :)
Gruß, Sven
Sehr gut erklärtes Video. Beschreibt genau mein Problem. 👍
Eine Frage noch: Wie kann die standard Outlook-Signatur in die E-Mail hinzugefügt werden?
Danke
Das Makro funktioniert super. Vielen Dank hierfür. Kann man das erzeugte PDF auch noch direkt abspeichern? Idealerweise in einen Speicherort, den ich innerhalb des Tabellenblattes noch definiere?
Ja natürlich. Habe dazu Videos am Channel. Am besten nach „Excel PDF“ suchen
Hallo Freunde Ich habe mir das alles nachgebaut und bin begeistert, nun, es machen alle Fenster auf aber ich kann keine Mail verschicken oder bessegesagt es kommt keine an BITTE um HI
LFE
Hi, tolle und sehr hilfreiche Videos!
Ich habe da ein Problem was ich einfach nicht gelöst bekomme.
Ich habe eine Excel-Datei mit 10+- Tabellenblättern und möchte diese einzeln mit dem Namen des Tabellenblattes als PDF speichern und jedes Tabellenblatt einzeln an einen E-Mailempfänger (der auf jedem Tabellenblatt in Zeile A1 steht) per Mail versenden.
Das jeweils aktive Tabellenblatt habe ich hinbekommen (das gespeicherte PDF geht auf, dann geht die E-Mail mit Anhang auf), nur nicht alles auf einmal mit einem Makro, das schaffe ich nicht, kannst du mir helfen?
Sehr gute Erklärung, wirklich TOP. Wo kann ich die Vorlage herunterladen?
Hallo! Besten Dank für dein Feedback.
Alle Files im Google Drive ordner: drive.google.com/drive/folders/1VfppRubAt5xETDItdIMTgebApkXiLMiF?usp=sharing
@@Excelpedia Link funktioniert nicht mehr, vielen Dank!
Hallo Johannes, zunächst ein Kompliment für das sehr gute Video. Ich habe 3 Fragen. 1. wie kann ich eine Verteilerliste (mehrere Mailadressen) in den Code integrieren? 2.Wenn ich die Mail automatisch ohne Outlook zu öffnen abschicken will, muss ich dann nur das Display wegnehmen? 3. Wie kann ich mehrere Arbeitsblätter (das aktuelle + die folgenden 6) in das PDF integrieren? Viel Dank im Voraus VG Björn
Hey!
1. Einfach mit Semikolon trennen
2. Ja
3. Das ist etwas schwieriger und kann ich per Kommentar nicht beantworten :)
Hallo, danke für das interessante Video. Ich habe eine frage: Besteht die Möglichkeit, die PDF sowie das öffnen von Outlook auch aus einer cloud heraus, also z.b. OneDrive auszuführen? Bzw. ist es möglich die Datei aus der Cloud heraus zu öffnen und "arbeiten" zu lassen? Welche Pfade müsste man dann angeben (z.B. für das Abspeichern der PDF)? Vielen Dank schonmal
OneDrive kannst du ja auch lokal speichern bzw auch von lokal aus arbeiten. Oder meinst du OneDrive Online? Das klappt nicht..
Hi. Sehr gutes Video. Eine Frage von mir: kann man das so einstellen, dass, nachdem wir die Mail geschickt haben, die Rechnungsvorlage wieder leer ist, also die zu befüllenden Felder wieder ohne Inhalt sind? Oder muss ich die Daten selbst entfernen, oder überschreiben, wenn ich eine neue Rechnung schreiben will?
Hallo!
Das geht natürlich. im VBA kann zB eine Zeile ergänzt werden, dass der Inhalt der relevanten Zellen einfach gelöscht werden sollen. :) Viele Grüße
Hallo Johannes - ein echt tolles Video und eine riesige Hilfe - dennoch eine Frage - wie baue ich eine zusätzliche Abfrage ein, die es mir ermöglicht eine bestimmtes Blatt zu speichern & zu senden. Ich habe eine Exceldatei (Zeitaufzeichnungen) - erstes Blatt ist eine Übersicht in der ich gerne den Button installieren möchte Jedes weitere Blatt ist ein Monat - wenn ich den Button drücke soll eine Abfrage kommen welchen Monat bzw. welches Blatt er erstellen soll. Geht das? Lg Ruben
Hallo Ruben!
Das ist grundsätzlich möglich mit einem PopUp. Oder noch einfacher: du schreibst in eine Zelle welche Exceldatei und Blatt ausgewählt werden soll. In dem VBA Code beziehst du dich dann auf diese Zelle. Also ähnlich wie hier :)
Wenn man in Outlook verschiedene Mailadresse eingebunden hat kann man über das Makro auch auswählen welches als Absenderadresse genutzt werden soll?
Wird meistens vom Standardaccount ausgeschickt..
Habe die Excel-Vorlage inkl. VBA-Macro vorige Woche gekauft: PDF erstellen und auf Pfad abspeichern funktioniert, Email jedoch nicht: Fehlermeldung: Fehler beim Kompillieren Projekt oder Biblothek ich gefunden! Wo liegt der Fehler? Hat wer einen Tip hierzu?
Hallo, Vielen Dank für das Mega Video. Klappt alles super. Eine Frage hätte ich , ist es möglich das ganze als anstatt als PDF auch als .xlms zu exportieren?
ja klar. :D
@@Excelpedia kannst du mir sagen wie ich den Code abändern muss ? Suche seit Tagen eine Lösung und finde keine :/
Hi, vielen Dank für das Video:)
Ich habe die PDF-Erstellung über deinen anderen Code programmiert, da ich immer neue PDF´s mit anderen Daten generiere. Wie bekomme ich es hin, dass die zuletzt erstellte PDF als Anhang in die Mail beigefügt wird? Wäre super nett wenn du mir weiterhelfen könntest :) Vielen Dank!
Hallo, bei mir Speichert er das PDF immer ein Ordner vor dem Ordner ab und er Speichert das PDF mit dem Ordnernamen und die von mir ausgewählte Zelle(Also wenn ich jetzt ein Ordner habe mit dem Namen "ANGEBOT" dann nimmt er den Ordner Name schreibt Ihn vor dem Eigentlichen pdf Name und Speichert es aber nicht in diesen Ordner sondern ein Ordner davor ab. Was kann die Ursache sein? LG Lutz
Hallo
Wie funktioniert dieser Code für ein MacBook?
Vielen Dank für dieses tolle Video. Funktioniert super. Leider muss ich die PDF Dateien in Onedrive speichern und synchronisieren. Weil aber der Pfad zum Ondriveordner auf jedem Rechner unterschiedlich ist, da der ja immer im Benutzerverzeichnis liegt, funktioniert das Makro immer nur auf einen Rechner(wegen der verschiedenen Benutzernamen). Wie kann man den so etwas lösen? Wäre toll wenn du die Zeit fändest mir dabei zu helfen. Vielen Dank im voraus.
LG
Hallo!
Versuch mal Folgendes beim Pfad:
%userprofile%/Desktop/
LG :)
@@fontner vielen Dank für den tipp. Leider reichen meine VBA Kenntnisse dafür nicht aus. Da bekomme ich einen Laufzeitfehler angezeigt. Ich habe mir jetzt so geholfen, das ich die Onedrive Ordner auf den Rechnern direkt nach C: verschoben habe und somit immer der gleiche Pfad in der Zelle steht.
Lg :)
@@Sturgis93 Super :)
Super Video und vielen Dank! :)
Ich habe eine Frage und hoffe du kannst mir weiterhelfen und zwar hast du ja für die PDF Datei eine feste Markierung hinzugefügt von A1 bis G48. Wie kann man bei eine Tabelle, die man täglich aktualisiert, nur die aktualisierten Daten in ein PDF hinzufügen?
Bsp. von den gesamten Tabelle will ich heute nur bestimmte Daten senden und markiere von Zeile B5 bis B10 um ein PDF herzustellen.
Ich wäre Dir sehr dankbar wenn du mir weiterhelfen könntest.
Am einfachsten wäre es, wenn du den Wunschbereich - also B5:B10 in eine Zelle schreibst und dann diese Zelle im VBA Code verknüpfst.
Hey, ich besitz das Programm "Exel 2016" und kann dadurch nicht alle Verweise verwenden/auffinden (MS Forms 2.0, MS Office 16.0, MS Smart Tags 2.0). Gibt es eine Möglichkeit, wie auch ich es schaffen kann meine Exeldatei auf diese Art und Weise zu versenden? Vielleicht kannst du mir ja weiterhelfen:)
Hey!
Leider tu ich mich da schwer, da ich selbst kein Excel 2016 verwende. Schätze es als schwierig ein, dass es hier einen Workaround gibt, wenn derartige Verweise/Funktionen nicht vorhanden sind.. :/
Danke für das Video, super erklärt!
Gibt es auch einen Code um eine Signatur vom Outlook auszuwählen?
Ja das würde mich auch interessieren. Im Moment füge ich die Signatur immer manuell ein. Aber ansonsten funktioniert der Code einwandfrei und spart mir viel Zeit. Vielen Dank dafür ☺️
junge junge du nuschelst unfassbar
Tolles Video, ich habe noch eine Frage:
Ich habe bereits ein Coding erstellt, in dem eine PDF mit aktuellem Tagesdatum & fortlaufender Nummer (falls an einem Tag mehrere PDFS erzeugt werden) erzeugt und in einem internen Netzwerklaufwerk abgelegt wird. Hier muss ich aber danach immer noch extra eine Email mit direktem Hyperlink auf die Datei an mehrere Empfänger versenden. Ist das möglich, diese Email nicht mit PDF im Anhang, sondern mit Hyperlink im E-Mail-Text zu versenden?
Hallo Tobias, das sollte auf jeden Fall gehen. Du kannst in das Textfeld der E-Mail noch einen Hyperlink mit aufnehmen.
Dann muss noch definiert werden, wo der Hyperlink herkommt. Wenn die Dateien immer im gleichen Ordner liegen, kannst du diesen auch dynamisch einfach mit dem Dateinahmen zusammenbauen lassen. Alternativ findest du hier eine Übersicht, wie man Hyperlinks aus Ordnern in Excel automatisch erstellt: ua-cam.com/video/dPYsLeABA2U/v-deo.html
Falls du dich nicht lange damit rumschlagen willst, können wir das auch gerne übernehmen. Wir bieten auch individuelle Excel-Dienstleistungen an. Schreib uns dazu gerne auf office@excelpedia.at eine E-Mail.
hallo kann man diese Vorlage auch für einen Serienbrief und Serien mail verwenden
Sure :)
Und wie bekommt Mann das hin
Vielen Dank für dieses hilfreiche Video! Gibt es auch eine Möglichkeit, diese Funktion ohne Button-Klick zu starten, also damit z. B. täglich zu einer bestimmten Uhrzeit automatisch eine PDF versendet wird? Danke für die Hilfe!
Hallo!
Ja das geht grundsätzlich. Ich hab dazu ein ähnliches Video gemacht, wo das gezeigt wird: ua-cam.com/video/nMhmj6-_YLs/v-deo.html
Hoffe das hilft.
LG
Super Video. Auch für mich als Laie super umsetzbar. Ich verwende leider Mozilla Thunderbird als Mailprogramm. Wie müsste man das umschreiben, oder geht das gar nicht? Danke im Voraus!
Mit Mozilla Thunderbird weiß ich leider keine Lösung. Sorry!
Ich wollte gerne noch vor dem senden eine Pflichtfeld Abfrage einrichten verzweifel daran aber ein wenig. Hast du hier vielleicht einen Tipp wie ich deinen Code erweitern kann?
Hallo, kleine Frage zu deinem Video. Du speicherst die Datei lokal auf dem Deskotp ab. Gibt es eine Möglichkeit die Datei auf einem Sahrepoint abzuspreichern? Da auf die meine Datei mehrere Leute von verschiedenen Geräten zugreifen ist die Lösung mit dem Desktoppfad bei mir leider nicht möglich. Im Vordergrund steht, dass die PDF als Mail versand werden soll, ich muss diese generierte Datei nicht zwingend abspeichern, besteht die Möglichkeit die Mail mit PDF zu generieren ohne dass die Datei abgespeichert wird? Danke für die Hife :-)
Ja klar!
Du musst dazu das OneDrive App installieren , dann kannst du ganz normal das File Lokal abspeichern und wird in die cloud synchronisiert:)
@@Excelpedia die ist installiert, aber da mherere Personen von verschiedenen PCs auf die Datei zugreifen ist der Desktoppfad immer ein anderer.
C:\Users\%Username%\OneDrive\Desktop
Verstehe - das funktioniert mit ENVIRON - einfach mal kurz googeln. Dadurch wird der username dynamisch
@@Excelpedia Mega! Danke für die Antwort! Funktioniert! 👏🏻
@@tobiaskundrus605 nice :)
Moin,
Erstmal top Video! Das mit dem PDF erstellen funktioniert auch super. Leider zeigt er mir einen Fehler bei
Set OutlookMailitem = OutlookApp.CreateItem(0)
Fehlermeldung: Object required
Weißt du woran das liegen könnte?
Hast du die Microsoft Outlook Librarys aktiviert?
@@Excelpedia ich habe alle aktiviert außer die Smart Tags, da es die bei mir nicht gibt
Hm ok - dann muss irgendwo ein Fehler im Code sein, denn ich so nicht sehen kann ..
Unterstützt den Kanal mit einem Abo und positiven Bewertung. Wir freuen uns über Rückmeldungen :-)
Hallo, vielen Dank für dieses Video. genau das brauchte ich.
ich würde gerne noch ein cc einfügen. Wie wären dann der befehl.
Kann man auch zb die Range von einer anderen Tabelle aus der ExcelDatei einfügen. Ich würde gerne zb die Email Verteilerliste im Hintergrund (auf einer extra Tabelle stehen haben).
Vielen Dank schonmal für die Hilfe
@@wernerlowen3164 einfach .cc im VBA Code einfügen. auch die Range kann man von einer anderen Excel Tabelle einfügen und als Verteilerliste verwenden.
Vielen Dank für das hilfreiche Video!
Ist es auch möglich dass die PDF verschlüsselt versendet wird und wenn ja wie? Vielen Dank schonmal!
Was meinst du mit verschlüsselt? :) als Passwort gesichert?
Ja genau :)
Der Empfänger muss dann erst ein Passwort eingeben um die PDF in der Email zu öffnen.
Ist das möglich ? :)
Danke für deine Antwort!
Super Video. Eine Frage. Bei meiner Outlook gibt es zwei Email Adressen 1 und 2. Wie soll ich die Makro Code ändern? Damit ist meine Email 2 als Versender? Aktuell gibt es eine Fehlermeldung "to für das Objekt_MailItem" und Outlook wird gar nicht geöffnet. Danke Dir!
Klappt es denn so nicht? max@mustermann1.at;max@mustermann2.at
Also nur durch ; trennen
Hallo Gemeinde , perfekt. danke hierfür. es klappt dass ich die Datei als PDF versende, ich sollte allerdings dieseDatei als Excel Geburtstage.xlsx abspeichern . wie muss ich es machen bitte ?
Danke
Du kannst ans Ende der Sub schreiben:
ThisWorkbook.SaveAs ThisWorkbook.Path & "\Geburtstage.xlsm"
Die Datei wird als xlsm (also Excel mit Makros) gespeichert statt als xlsx, weil wir Makros in der Arbeitsmappe haben und es sonst zu einem Fehler kommt.
Ich hoffe das hilft weiter :)
LG Kai
Danke!
Ich finde den Fehler leider nicht, wird mir als Debug-Fehler angezeigt !
Range("A1:k42").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Ist der DateiName den ein korrekter Pfad? Hier liegt oft der Fehler. LG
Funktioniert super! Ich möchte eine Email öffnen ohne vorgegebene email adresse. Wie schreibe ich den Code dann um?
Super! Wie meinst du ohne vorgegebene Mail-Adresse? Du kannst das E-Mail Feld ja einfach leer lassen.
@@Excelpedia Ja, habe den Weg gefunden. Habe die Email Adresse zeile raus genommen. Perfekt!
Tolle Videos.!
Hast du den Code Online?
Sub PDF_und_Senden()
Dim DateiName As String
DateiName = Range("K3") & Range("K2") & ".pdf"
Range("A1:G48").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
.To = Range("K16")
.Subject = Range("K17")
.Body = Range("K37")
myAttachments.Add DateiName
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub
Hallo
Danke für das super Video.
Ich hab alles so probiert nachzubauen leider bekomme ich immer einen Laufzeitfehler beim Ausführen des ersten Tests. wo könnte hier der Fehler begraben sein?
LG
Markus
Hallo!
Irgendwo muss ein Fehler sein im Code. Welche Änderungen hast du vorgenommen bzw. kannst du den Code hier posten?
Hallo, vielen Dank für dieses Video. genau das brauchte ich.
ich würde gerne noch ein cc einfügen. Wie wären dann der befehl.
Kann man auch zb die Range von einer anderen Tabelle aus der ExcelDatei einfügen. Ich würde gerne zb die Email Verteilerliste im Hintergrund (auf einer extra Tabelle stehen haben).
Vielen Dank schonmal für die Hilfe
Hallo!
für CC wäre es: .CC = Range("K23")
Und ja natürlich kann man die Verteilerliste im Hintergrund heranziehen. Es wäre jedoch zu empfehlen, dass bei dem Befehl .To = Range("K20"), nur eine Zelle (also in diesem Fall K20) beinhaltet. Die Mail-Empfänger müssen dazwischen mit ; getrennt sein.
Hoffe das hilft!
LG
Servus! Erstmal danke für dein Video. Bei mir kam diese Meldung auf "Fehler beim Kompilieren: Variable nicht definiert" - dabei gehts um [ Set OutlookApp = CreateObject("Outlook.Application") ] Was kann da falsch sein? ich sitze seit einer guten halben Stunde und finde die Ursache nicht.
Hast du denn die Outlook Bibliothek im VBA aktiviert?
Ich hätte noch eine Frage. Gibt es eine Möglichkeit Outlook zu sagen welches E-Mail Konto verwendet werden soll? Jetzt wird immer das Exchange Konto verwendet, und nicht das IMAP von dem Standardmäßig gesendet werden soll. Vielen Dank im voraus.
Hallo!
Schreibe zB in K19 deine Mail: max@mustermann.de
Füge dann im VBA Code noch folgende Zeile (Nach .To) hinzu:
.SentOnBehalfOfName = Range("K19")
LG
@@Excelpedia meinst du so?
With OutlookMailItem
.To = Range("K3")
.SentOnBehalfOfName = Range("K19")
.Subject = Range("K5") & Range("L5")
.Body = Range("K4")
myAttachments.Add DateiName
.Display
End With
Funktioniert leider nicht. Outlook nimmt weiterhin die Exchange Mail Adresse In der Zelle K19 Steht meine Gmail Adresse, das interessiert Outlook aber nicht.
LG
@@Sturgis93 Das ist komisch - bei mir hat es geklappt, dass die Mail-Adresse geswitcht wird. Wüsste ad-hoc jetzt auch nichts, warum es nicht klappen sollte.. Sorry!
@@Excelpedia merkwürdig, na dann werde ich mal weiter testen. Trotzdem vielen Dank für die Mühe.
Lg
Servus. Danke für dein Video. Leider ist die komplette Zeile (Range ("A1:G48").EportAsFixedFormat Type.......) bei mir ebenfalls gelb makiert: Laufzeitfehler'-2147024773(8007007b)'. Dateiname und Pfad geprüft. Gibt es zur Lösung des Problems bereits Ideen?
dieser Fehler wurde gelöst, Dateiname war offensichtlich zu lang. Neuer Laufzeitfehler '438'....Set myAttachments = OutlookMailItem.Attechments. Verweise bei Extras gesetzt. Funktioniert trotzdem nicht. Ideen?
Generell Outlook bei den Objects Librarys aktiviert?
@@Excelpedia Ja, sämtliche Outlook Library bei Verweise
Guten Tag gibt es eine Möglichkeit diese Vorlage runterzuladen?
Danke Marco
Alle Files: drive.google.com/drive/folders/1jNxDoW8npnZMSTIEEe52jsgnoIZsKdLf
Hallo, bei Mir kommt immer Laufzeitfehler 424. Im Debugger wird ( myAttechments.Add DateiName ) gelb markiert. Kann mir Jemand weiterhelfen?
Hier das ganze Modul falls das hilft:
Sub PDF_und_Senden()
Dim DateiName As String
DateiName = Range("A1") & Range("B1") & ".pdf"
Range("A3:AP35").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
.To = Range("AQ2")
.CC = Range("AR3") & Range("AS2") & Range("AT2") & Range("AU2")
.Subject = Range("C1")
.Body = Range("D1")
myAttechments.Add DateiName
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub
@excelpedia
Die Zeile : Range("A1:G48").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True ist komplett gelb markiert
und wie lautet der vorherige Teil des Codes? "DateiName" sollte einen Pfad und Namen darstellen.
Hier ist der ganze Code :
Sub PDF_und_Senden()
Dim DateiName As String
DateiName = Range("K3") & Range("K2") & ".pdf"
Range("A1:G48").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attechments
With OutlookMailItem
.To = Range("K16")
.Subject = Range("K17")
.Body = Range("K37")
myAttechments.Add DateiName
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub
Vielen Dank für dieses sehr hilfreiche Video und auch Dir "email2489" für den Code. Wenn jetzt noch die klitzekleinen aber nicht unwichtigen Schreibfehler korrigiert werden, läuft der Code auch ;-) (ersetze 2x "Attechments" durch "Attachments" !!) ;-) Viele Grüße aus Hamburg.
Ich finde den Fehler leider nicht, wird mir als Debug-Fehler angezeigt ! Range("A1:G48").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Welcher Bereich beim Code wird denn gelb markiert? Wenn du auf Debuggen klickst.