Diagrammquelldaten mittels Marko hochzählen
04.09.2014 11:22:09
Patrick
ich hoffe ihr könnt mir weiterhelfen.
In meinem Excel-Sheet befinden sich mehrere vom Aufbau homogene Diagramme mit einer fixierten Datenquelle.
Die Datenquelle soll jeweils nach Ausführung des Makros eine Zelle tiefer rutschen bzw. hochzählen.
Um es deutlich zu machen ein Beispiel.
Datenquelle jetzt ist: BD395:BD418 nach Durchführung des Markos soll die Datenquelle BD396:BD419 sein, also genau jeweils um 1 hochzählen.
Dies sollte doch mit einem Makro realisierbar sein, oder?
Ich habe mal versucht ein Makro aufzuzeichnen bekomme aber damit das "hochzählen" nicht hin.
Hier mal das Test-Makro mittels Aufzeichnung:
Sub Test()
' Test Makro
ActiveSheet.ChartObjects("Diagramm 10").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.SeriesCollection(1).Values = _
"='Testdaten'!$BD$395:$BD$418"
ActiveChart.SeriesCollection(2).Values = _
"='Testdaten'!$BE$395:$BE$415"
ActiveChart.SeriesCollection(3).Values = _
"='Testdaten'!$BF$395:$BF$415"
ActiveChart.SeriesCollection(3).XValues = _
"='Testdaten'!$BC$395:$BC$418"
ActiveChart.SeriesCollection(1).XValues = _
"='Testdaten'!$BC$395:$BC$418"
End Sub
Würde mich freuen wenn Ihr eine tolle Idee für mich habt.
Ich bedanke mich schon einmal vorab.
Viele Grüße,
Patrick