Hallo zusammen,

ich habe aus dem Internet ein Excel-File heruntergeladen, mit dem man Motion Charts offline erstellen kann. Leider erscheint jedes Mal, wenn ich mit dem File arbeiten möchte der Laufzeit-Fehler 1004 "anwendungs- oder objektorientierter Fehler". Wenn ich diesen debuggen möchte, geht ein Fenster mit einem ziemlichen langen VBA-Code auf. Leider kann ich kein VBA und kann deshalb nicht verstehen, was die Ursache des Fehlers ist.

Vielen Dank für eure Anregungen!

Hier der Ausschnitt des Codes, der als fehlerhaft markiert wird (Fehlerzeile ist fett markiert):

'===================================
'Changes listbox for amending labels
'===================================

For intCharts = 1 To ActiveSheet.ChartObjects.Count
    If ActiveSheet.ChartObjects.Item(intCharts).Visible = True Then
        intVisible = intCharts
        Exit For
    End If
Next intCharts

ActiveSheet.ChartObjects(intVisible).Activate

For intCol = 1 To ActiveChart.SeriesCollection.Count
    If ActiveChart.SeriesCollection(intCol).Name <> "BubbleSize" Then
        lstType.AddItem ActiveChart.SeriesCollection(intCol).Name
    End If
Next intCol

Range("C10").Select
If Range("C10").Value < 2100 Then
    Selection.NumberFormat = "General"
Else
    Selection.NumberFormat = "m/d/yyyy"
End If
Range("C10").Select

Cells(1, 1).Select

Exit Sub
Err_UpdateSource_Click:
    Err.Raise Err.Number, Err.Source, Err.Description