Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle
12.01.2021 20:16:00 Jannik Marti
NotSolved
12.01.2021 22:11:35 volti
NotSolved
13.01.2021 19:03:13 Jannik Marti
NotSolved
13.01.2021 19:50:03 volti
NotSolved
14.01.2021 08:29:27 Jannik Marti
NotSolved
14.01.2021 08:42:01 Gast6163
NotSolved
14.01.2021 08:44:58 volti
NotSolved
14.01.2021 08:52:54 Admin
NotSolved
14.01.2021 08:43:13 volti
NotSolved
14.01.2021 13:24:43 Jannik Marti
NotSolved
14.01.2021 13:29:39 Admin
NotSolved
14.01.2021 13:55:28 volti
NotSolved

Ansicht des Beitrags:
Von:
Jannik Marti
Datum:
12.01.2021 20:16:00
Views:
88
Rating: Antwort:
  Ja
Thema:
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle

Guten Abend Zusammen

Ich möchte ein VBA bauen, dass ich ein bestimmtes Arbeitsblatt als PDF speicher kann. Der Speicherpfad und der Name werden aus einer Zelle generiert. Zudem möchte ich das Ganze noch als Email versenden. Folgendes habe ich eingegeben:

Sub PDF_und_Senden_Metalllieferant()
 
Dim DateiName As String
DateiName = Sheets("Metallherstellung").Range("L3") & Sheets("Metallherstellung").Range("L2") & ".pdf"
 
Sheets("Metallherstellung").Range("A1:J82").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=Tue, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
 
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 = Sheets("Tabelle2").Range("B45")
.Subject = Sheets("Tabelle2").Range("B34")
.Body = Sheets("Tabelle2").Range("B47")
myAttachments.Add DateiName
.Display
End With
 
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
 
 
End Sub
 
Was habe ich falsch eingegeben. Es funktioniert nicht. Zudem sollte der Pfad im Namen nicht enthalten sein. 
 
Wie kann ich zudem ein in das CC automatisch eine Email hinterlegen?
 
Besten Dank im Voraus für euer Feedback.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle
12.01.2021 20:16:00 Jannik Marti
NotSolved
12.01.2021 22:11:35 volti
NotSolved
13.01.2021 19:03:13 Jannik Marti
NotSolved
13.01.2021 19:50:03 volti
NotSolved
14.01.2021 08:29:27 Jannik Marti
NotSolved
14.01.2021 08:42:01 Gast6163
NotSolved
14.01.2021 08:44:58 volti
NotSolved
14.01.2021 08:52:54 Admin
NotSolved
14.01.2021 08:43:13 volti
NotSolved
14.01.2021 13:24:43 Jannik Marti
NotSolved
14.01.2021 13:29:39 Admin
NotSolved
14.01.2021 13:55:28 volti
NotSolved