Frage von Kenjji, 37

Wieso stürzt Excel nach dem Makro ab, wo ein Diagramm erstellt wird?

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

Viele Grüße

Kenji

Antwort
von MrProcess, 35

Ich würde da mal eine Reparatur-Installation von Office ausführen, denn egal wie fehlerbehaftet ein Code ist, dürfte es m.E. nie zu einem AppCrash kommen.

Und nein - den Code habe ich mir nicht angeschaut, weil der wie gesagt nichts damit zu tun haben dürfte.


Antwort
von Britzcontrol, 28

Sollte in der vorletzten Zeile des Codes anstatt ".xlsx"
nicht besser ".xlsm" stehen ?
Also mit Makros.

Gruß aus Berlin

Keine passende Antwort gefunden?

Fragen Sie die Community

Weitere Fragen mit Antworten