Guten Morgen zusammen…
Ich habe ein Problem in einer Excel Datei, die mit Visual Basic Funktionen ausgestattet wurde. Es geht darum Umsatzzahlen pro Monat in Tabellenblatt C in Diagrammen auf Tabellenblatt B anzuzeigen. (im Ganzen ca 40 Blätter, 20 Daten - 20 Diagramme)
Nun stehen im ersten Tabellenblatt A Buttons um Datenpunkte für den jeweiligen Monat hinzuzufügen bzw. zu entfernen. Zudem gibt es einen um alle Datenpunkte zu entfernen. Dieser funktioniert aber jetzt nicht mehr, weil im Laufe des Jahres Tabellenblätter hinzugefügt wurden oder umbenannt wurden. (jedenfalls denke ich das dies der Grund ist…).
Nun erscheint mit immer etwa in der Hälfte aller Tabellenblätter (vor einem neubenannten Blatt) folgende Fehlermeldung:
Laufzeilenfehler 1004
Die ChartObjects-Eigenschaft des Worksheet-Objektes kann nicht zugeordnet werden.
Der VBA Code sieht wie folgt aus:
Sub Alle\_Werte\_ausblenden()
Dim intAnzWks As Integer
Dim intWksnr As Integer
Dim intMonth As Integer
Dim strMonth As String
intAnzWks = ActiveWorkbook.Worksheets.Count
intAnzWks = intAnzWks - 3
' Schleife vom ersten Arbeitsblatt mit einem Diagramm bis zum letzten
For intWksnr = 2 To intAnzWks
' Alle Datenpunkte des Berichtsjahres ausblenden
For intMonth = 2 To 13
Worksheets(intWksnr).ChartObjects("Diagramm 2").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Points(intMonth).Select
With Selection.Border
.ColorIndex = 10
.Weight = xlMedium
.LineStyle = xlNone
End With
With Selection
.MarkerBackgroundColorIndex = 10
.MarkerForegroundColorIndex = 1
.MarkerStyle = xlNone
.MarkerSize = 5
.Shadow = False
End With
Worksheets(intWksnr).ChartObjects("Diagramm 3").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Points(intMonth).Select
With Selection.Border
.ColorIndex = 10
.Weight = xlMedium
.LineStyle = xlNone
End With
With Selection
.MarkerBackgroundColorIndex = 10
.MarkerForegroundColorIndex = 1
.MarkerStyle = xlNone
.MarkerSize = 5
.Shadow = False
End With
Next intMonth
intWksnr = intWksnr + 1
Next intWksnr
End Sub
Hatte bisher leider noch nicht so viele Erfahrungen mit VBA… nur Ansatzweise einfache Dinge… Hoffe hier kann mir jemand weiterhelfen :-/
Vielen Dank und Gruss
Yanick
[MOD] Ich habe nur für die bessere Lesbarkeit pre-tags eingesetzt.