Hallo,

ja, das stimmt. habe ich geändert.

Es wird nun die PDF Datei abgespeichert. Ich habe es so umgeschrieben dass anstatt:

sPdfDateiB25 = "C:\tmp\2016\" & activesheet.Range("B25") & ".PDF "

-----> nun steht:

sPdfDateiB25 = "C:\tmp\2016\" & activesheet.Range("B25") & ""

Da das Wort "PDF" immer zusätzlich im Dateinamen ausgegeben wurde. Außerdem entfernte ich zwecks Übersichtlichkeit noch aus dem Script das "B25" aus dem "sPDFDatei" String, da eh nur eine PDF Datei angefügt werden soll.

Aber nach wie vor findet das Script nicht die Datei zum anfügen an die Email!?

Debuggen an der Stelle des Scripts:

OutMail.Attachments.Add sPdfDatei

Meldung: 
"Datei konnte nicht gefunden werden. Überprüfen Sie den Pfad und den Dateinamen."
Anscheinend versteht das Script an dieser Stelle nicht, wo die Datei mit welchem namen liegt!?

Hier nochmals das aktuelle komplette Script:

 Dim sBlatt As String
  Dim sPdfDatei As String
  Dim OutApp As Object
  Dim OutMail As Object

  ' auf dieses Tabellenblatt zugreifen, um E-Mail, Betreff und Inhalt auszulesen
  sBlatt = "Meldung"

  ' unter welchem Namen soll das PDF-Dateien abgespeichert werden?
  sPdfDatei = "C:\tmp\2016\" & ActiveSheet.Range("B25") & ""

  ' speichert das aktuelle Blatt (=ActiveSheet) als PDF
  ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=sPdfDatei, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
 
  ' Bezug zu Outlook herstellen...
  Set OutApp = CreateObject("Outlook.Application")

  ' ...damit wir eine neue E-Mail erzeugen können
  Set OutMail = OutApp.CreateItem(0)

  ' Werte den Eigenschaften zuweisen...
  OutMail.To = Sheets(sBlatt).Range("B16")
  OutMail.CC = ""
  OutMail.BCC = ""
  OutMail.Subject = Sheets(sBlatt).Range("B25")
  OutMail.Body = Sheets(sBlatt).Range("B27")


  ' Anhang hinzufügen:
  OutMail.Attachments.Add sPdfDatei

  ' ...und abschicken
  OutMail.display

  ' Objekte sauber auflösen
  Set OutMail = Nothing
  Set OutApp = Nothing

End Sub

Was muss ich an der Stelle eintragen, dass die Datei gefunden und angefügt wird!?

Danke & Gruss,

Jürgen