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
|