Diagramm per Makro um Datenpunkte erweitern
11.11.2016 09:21:24
Sebastian
Ich habe ein Makro geschrieben, das Werte aus einer anderen (variierenden Datei) importiert. Leider ist die Form extern vorgegeben, so dass diese nicht als Tabelle formatiert werden können.
Nach dem Import der Werte (funktioniert bereits) möchte ich jetzt diese Werte als neue Datenpunkte (werte in Zeilen) zu einem bestehenden Diagramm hinzufügen. Händisch funktioniert das gut, lediglich am Makro verzweifel ich gerade. Und die Recorderfunktion gibt auch nicht das gewünschte Ergebnis (hier wird eine neue Datenreihe erzeugt).
2. Problem ist dann, wie der Achsbeschriftungsbereich der horizontalen Achse angepasst werden _ kann. Hier werden auf einem anderen Arbeitsblatt die Werte ebenfalls durch das Makro ergänzt (immer rechts ein Wert hinzu). Ich habe bereits versucht das als Namensbereich festzulegen, aber den Namensbereich akzeptiert das Diagramm (=Dateiname.xlsm!name) nicht. Und die VBA Lösung:
Sub Makro2()
Sheets("Sheet2").Select
Dim a As String
a = Cells(4, 2).Address & ":" & Cells(4, Cells(4, Columns.Count).End(xlToLeft).Column). _
Address
Sheets("Graphs").Select
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.FullSeriesCollection(1).XValues = a
End Sub
funktioniert leider auch nicht.
Weiß hier jemand Rat?