Anzeige
Archiv - Navigation
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Excel stürzt nach Makro ab

Excel stürzt nach Makro ab
16.03.2016 18:03:33
Kenji
Hallo zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel stürzt nach Makro ab
16.03.2016 18:04:10
Kenji
Viele Grüße
Kenji
Anzeige

107 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige