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
|