Auf einem Tabellenblatt habe ich 8 Diagramme. Damit sich die X-Achse automatisch anpasst verwende ich in diesem Tabellenblatt den folgenden Code:
Private Sub Worksheet_Activate()
Dim i
usw. bis
Dim q
i = Worksheets("Hilfe").Cells(11, 3)
ActiveSheet.ChartObjects("Chart 19").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("Hilfe").Range("B1:B" & i), _
PlotBy:=xlColumns
usw. bis
q = Worksheets("Hilfe7").Cells(11, 3)
ActiveSheet.ChartObjects("Chart 27").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("Hilfe7").Range("B1:B" & q), _
PlotBy:=xlColumns
End Sub
Das letzte Diagramm wird nicht aktualisiert.
Bei der Zeile "ActiveSheet.ChartObjects("Chart 27").Activate" erhalte ich die folgende Fehlermeldung:
Laufzeitfehler 1004
Die ChartObjects-Eigenschaft des Worksheet-Objektes kann nicht zugeordnet werden.
Wie kann ich ohne probieren herausfinden, welche Nummer ein Diagramm hat. Ich habe schon über 50 verschiedene Nummern ausprobiert.
Das erste Diagramm muss ich mit Chart 19 ansprechen. Ich habe viele Diagramme eingefügt und wieder gelöscht. Scheinbar werden sie fortlaufend nummeriert.
Im Voraus vielen Dank für einen Tipp.
Thomy