Excel stürzt nach Makro ab
16.03.2016 18:03:33
Kenji
ich habe hier einen Makrocode, der zwar sauber ausgeführt wird, aber sobald das Diagramm erstellt wird stürzt Excel mit einem Appcrash Fehler ab.
Hoffe mir kann hier jemand sagen wieso das so ist und wie ich es beheben kann?
Sub AuswertungMakro()
ActiveSheet.Range("$A$3:$N$20000").AutoFilter Field:=5, Criteria1:=""
Set AUSWBereich = ActiveSheet.Range("B2:N20000").SpecialCells(xlCellTypeVisible)
AUSWBereich.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.DisplayAlerts = False
Sheets("Tabelle2").Delete
Sheets("Tabelle3").Delete
Sheets("Tabelle1").Name = "Test123_" & Format(DateAdd("m", -1, Date), "mmm") & "_" & Format( _
DateAdd("y", 0, Date), "yyyy")
ActiveSheet.Range("$A$1:$N$20000").AutoFilter
Cells.EntireColumn.AutoFit
ActiveSheet.Columns("I:I").ColumnWidth = 11.86
ActiveSheet.Columns("K:K").ColumnWidth = 54.71
ActiveSheet.Columns("L:L").ColumnWidth = 71.57
Cells.EntireRow.AutoFit
Cells.Validation.Delete
ActiveSheet.Range("$A$1:$N$20000").Interior.ColorIndex = xlNone
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=ActiveSheet.Range("$A$ _
1:$M$20000"), Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="", TableName:="PivotAuswertung", DefaultVersion:=xlPivotTableVersion14
ActiveSheet.Name = "Auswertung_" & Format(DateAdd("m", -1, Date), "mmm") & "_" & Format( _
DateAdd("y", 0, Date), "yyyy")
With ActiveSheet.PivotTables("PivotAuswertung").PivotFields("Wert1")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("PivotAuswertung").AddDataField ActiveSheet.PivotTables(" _
PivotAuswertung").PivotFields("Wert2"), "Anzahl", xlCount
With ActiveSheet.PivotTables("PivotAuswertung").PivotFields("Wert2")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotAuswertung")
.InGridDropZones = True
.RowAxisLayout xlTabularRow
End With
ActiveSheet.PivotTables("PivotAuswertung").DataBodyRange.HorizontalAlignment = xlCenter
ActiveSheet.PivotTables("PivotAuswertung").PivotFields("Wert1").DataRange. _
HorizontalAlignment = xlCenter
ActiveWorkbook.Charts.Add
dateipfad = "U:"
ActiveWorkbook.SaveAs dateipfad & "\" & "Test1234" & ".xlsx"
End Sub