Chart SeriesCollection per VBA dynamisch ändern
30.06.2008 14:47:25
Philipp
ich bin momentan ziehmlich ratlos und nachdem ich nun sämtliche Foren durchkämmt habe wende ich mich nun an Euch.
Zur Zeit versuche ich "einfach" nur die letzte Zeile meines Datenblattes (Data Input) auszulesen und dann mit diesem Wert die SeriesCollection zu erweitern, um ein bestehendes Diagramm zu bearbeiten.
Bei diesem Diagramm handel es sich um ein 2 - xlColumns(Also ein Liniendiagramm mit 2 Achsen). Klingt für Euch wahrscheinlich einfach, bei mir gibt es aber leider nur Fragezeichen.....
Der erste Teil das Auslesen der letzten Zeile, hat mit einem geklauten Skript schon sehr gut geklappt. ;)
Mit dem Macrorecorder habe ich mir den Änderungsteil aufgezeichnet und die entsprechenden Teile mit der Variablen versehen.
Das Skript sieht folgendermaßen aus:
Sub Macro4()
Sheets("Data Input").Select
Dim iValue As Integer
Dim Loletzte As Long
Loletzte = IIf(IsEmpty(Range("B65536")), Range("B65536").End(xlUp).Row, 65536)
Cells(Loletzte, 1).Select
iValue = ActiveCell.Row
MsgBox "Variablenwert: " & iValue
Sheets("graphic_peter").Select
ActiveChart.SeriesCollection(1).XValues = "='Data Input'!R45C1:R & iValue & C1"
ActiveChart.SeriesCollection(1).Values = "='Data Input'!R45C14:R & iValue & C14"
ActiveChart.SeriesCollection(2).XValues = "='Data Input'!R45C1:R & iValue & C1"
ActiveChart.SeriesCollection(2).Values = "='Data Input'!R45C11:R & iValue & C11"
ActiveChart.SeriesCollection(3).XValues = "='Data Input'!R45C1:R & iValue & C1"
ActiveChart.SeriesCollection(3).Values = "='Data Input'!R45C10:R & iValue & C10"
ActiveChart.SeriesCollection(4).XValues = "='Data Input'!R45C1:R & iValue & C1"
ActiveChart.SeriesCollection(4).Values = "='Data Input'!R45C13:R & iValue & C13"
End Sub
Leider springt nach der Ausgabe meiner Message Box, in welcher der richtige Wert steht der Debugger an und versucht mir klar zu amchen dass:
Runtime Error 1004
Unable to set XValues property of ther Series class
Hoffentlich kann mir hier jemand weiter helfen.....
Falls Ihr noch einen Ratschlag habt, wie man die 2te Axe in Abhängigkeit von "='Data Input'!R45C13:R & iValue & C13" dynamisch erweitern kann, wäre ich Euch echt verbunden.
Ich habe von dem ganzen VBA leider keine Ahnung.
Danke für Eure Hilfe