Hallo,

ich bekomme leider beim folgenden Makro eine Fehlermeldung "Laufzeitfehler 1004 - Dokument nicht gespeichert....". Bei Debuggen wird die letzte Zeile als falsch angezeigt: Sheets("Übersicht").ExportAsFixedFormat xlTypePDF, openafterpublish:=True.

Ich finde die Fehlerursache nicht :-(. Kann mir jemand helfen???  DANKE im Voraus.

Sub ÜbersichtErstellen()

Dim intLetzteZeil As String

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Sheets("Abzug").Range("A1:AB200").Copy Sheets("Übersicht").Range("A1")
'Spalten löschen
With Sheets("Übersicht")
    .Columns("A:A").Delete
    .Columns("B:C").Delete
    .Columns("C:C").Delete
    .Columns("D:N").Delete
    .Columns("H:J").Delete
    .Columns("J").Delete
End With

'Formatieren()
With Sheets("Übersicht")
    .Columns("A:A").EntireColumn.AutoFit
    .Columns("B:B").ColumnWidth = 10
    .Columns("C:C").ColumnWidth = 9
    .Columns("D:D").EntireColumn.AutoFit
    .Columns("E:E").EntireColumn.AutoFit
    .Columns("J:J").ColumnWidth = 3.44
    .Columns("K:K").ColumnWidth = 10.5
    .Columns("M:M").ColumnWidth = 3.44
End With

With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .FirstPage.CenterFooter.Text = "Übersicht der My-Taxi-Kosten"
        .CenterHorizontally = True
End With
    
'Werte dazuschreiben
Sheets("Übersicht").Range("k1").Value = "sum (month)"
Sheets("Übersicht").Range("N1").Value = "check"

'falls neue KST dazu kommen, dann Range "J3:J5" anpassen
Sheets("Makros").Range("J3:J5").Copy Sheets("Übersicht").Range("K2")

'Errechnen der Summen pro Kostenstelle
Dim Arg1 As Range 'the range I want to sum
Dim Arg2 As Range 'criteria range
Dim Arg3 As Variant 'the criteria as VARIANT
Dim i As Integer
Dim LastColumn As Integer: LastColumn = 12

    Set Arg1 = Sheets("Übersicht").Range("H1:H200") 'Arg1 and Arg2 must be the same size
    Set Arg2 = Sheets("Übersicht").Range("C1:C200") 'Arg1 and Arg2 must be the same size
    Set Arg3 = Sheets("Übersicht").Range("K2:K13")  'criteria can have different size
    'falls neue KST dazu kommen, dann Range letzten Wert von i anpassen - je nach Zeilenanzahl
    For i = 2 To 4
    Sheets("Übersicht").Cells(i, LastColumn) _
            = Application.WorksheetFunction.SumIfs(Arg1, Arg2, Arg3.Cells(i - 1, 1).Value)
    Next

'Errechnen der Gesamtsumme + Check
Sheets("Übersicht").Cells(1, 12).Formula = "=SUM(L2:L15)"
Sheets("Übersicht").Cells(1, 15).Formula = "=SUM(H:H)-L1"

'Werte auf 2-Kommastellen berechnen
Sheets("Übersicht").Range("L1:L10").NumberFormat = ("0.00")

Sheets("Makros").Range("L3").Formula = "=Übersicht!A3"

With Sheets("Übersicht")
    .Range("A1:o1").Insert
    .Range("A1").Value = "Monatsabrechnung MyTaxi"
    .Range("A1").Font.Size = 12
    .Range("c1").Value = Sheets("Makros").Range("L3")
    .Range("c1").NumberFormat = "MM.YYYY"
    .Range("A1:AB2").Font.Bold = True
    .Range("A1:AB2").Interior.ColorIndex = 6
End With

Sheets("Übersicht").Range("C3").NumberFormat = "MM.YYYY"

'Druckbereich festlegen
intLetzteZeil = Sheets("Übersicht").[A1].End(xlDown).Row
strRange2 = "A1:" & "Q" & intLetzteZeil
Sheets("Übersicht").PageSetup.PrintArea = strRange2

Application.Calculation = xlCalculationSemiautomatic

Sheets("Übersicht").ExportAsFixedFormat xlTypePDF, openafterpublish:=True

End Sub