Moin Mase,

danke erstmal für deine Mühen und auch danke für den kleinen Arschtritt, zumindest habe ich es so aufgenommen. Wie dem auch sei, ich habe mir den Code nocheinmal angesehen und etwas geändert. Es funktioniert jetzt fast alles wie es soll, nur wird das Speichern der Datei ignoriert. Es gibt keine Fehlermeldung, der Code läuft ohne Probleme durch, außer das Speichern nicht. Hast du nochmal eine Idee dazu?

Public MYPATH As String
Option Explicit


Sub Start()

'Kopieren der Daten für die umschläge
    Worksheets("Auswahllisten").Range("G2:G105").Copy
    Worksheets("Daten Umschläge").Range("A2").PasteSpecial xlPasteValues
    Worksheets("Eingabetabelle").Range("H2:H105").Copy
    Worksheets("Daten Umschläge").Range("B2").PasteSpecial xlPasteValues
    Worksheets("Eingabetabelle").Range("I2:I105").Copy
    Worksheets("Daten Umschläge").Range("C2").PasteSpecial xlPasteValues
'Kopieren der Daten für LLBB
    Worksheets("Auswahllisten").Range("G2:G105").Copy
    Worksheets("Daten LLBB").Range("A2").PasteSpecial xlPasteValues
    Worksheets("Eingabetabelle").Range("D2:D105").Copy
    Worksheets("Daten LLBB").Range("B2").PasteSpecial xlPasteValues
    Worksheets("Auswahllisten").Range("H2:H105").Copy
    Worksheets("Daten LLBB").Range("C2").PasteSpecial xlPasteValues
'Duplikate entfernen
    Worksheets("Daten Umschläge").Range("$A$1:$G$105").RemoveDuplicates Columns:=1, Header:=xlYes
'Datei Speichern und beenden
    'Worksheets("Eingabetabelle").SaveCopyAs "C:\Test\TESTliste_" & Format(Now, "dd.mm.yyyy") & ".xlsm"
    'ThisWorkbook.Saved = True
    'Application.Quit
Call MakroMacroMitDeinemFormularSteuerelementVerknuepfen


End Sub

'Option Explicit
  

  
Sub MacroMitDeinemFormularSteuerelementVerknuepfen()
    Dim sText As String
        
    MYPATH = Environ("temp")
     
    sText = "Sehr geehrte Damen und Herren,"
    sText = sText & "anbei die Daten der heutigen XXX."
    sText = sText & ""
    
    Call SendSheetOutlook( _
                            "Betreff", _
                            "Mailadresse", _
                            "", _
                            sText)
End Sub
  
Private Sub SendSheetOutlook(sSubject As String, sTo As String, sCC As String, ByVal sText As String)
Dim olApp         As Object
Dim AWS           As String
Dim olOldBody     As String
    
'define temporary Path and Filename
AWS = MYPATH & "\" & Format(Date, "YYYYMMDD") & "_" & Format(Time, "hhmmss") & "_" & _
WorksheetFunction.Substitute(ActiveWorkbook.Name, ".xlsm", "")
    
'export File as PDF
AWS = AWS   'debug-stop

Worksheets("Daten LLBB").ExportAsFixedFormat Type:=xlTypePDF, Filename:=AWS, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
AWS = AWS & ".pdf"
    
'Make Email
Set olApp = CreateObject("Outlook.Application")
   With olApp.CreateItem(0)
             .GetInspector.Display
             olOldBody = .htmlBody
             .To = sTo
             .cc = sCC
             .Subject = sSubject
             .htmlBody = sText & olOldBody
            .Attachments.Add AWS
   End With
       
AWS = AWS   'debug-stop
'remove TEMP file
'********************************
'wenn du das PDF behalten möchtest, diese Zeile auskommentieren!
'sonst wird das temporäre PDF wieder gelöscht
'Kill AWS
'********************************
'Datei Speichern und beenden
    ActiveWorkbook.SaveCopyAs "C:\Test\TESTliste_" & Format(Now, "dd.mm.yyyy") & ".xlsm"
    ThisWorkbook.Saved = True
    Application.Quit
    
End Sub


'Gleiche Fehlermeldung wieder.


Fettes Danke

Chris