Dynamische Grafik
Thomas
Ich brauche mal wieder eure Hilfe bei einem Problem.
In einem Formular möchte ich eine Monatsentwicklung als Grafik anzeigen. Dabei weiß ich allerdings nicht wann das Eintrittsdatum ist und daher ist der Bereich immer zwischen 48 bis 60 Spalten lang. Ich habe nun versucht über die Namensdefinition in Verbindung mit Bereich.Verschieben eine Lösung zu finden.
Diese funktioniert auch beim Namen außer wenn ich dies nun in die Grafik übernehmen möchte. Es erscheint immer eine Fehlermeldung das die Values.Eigenschaft nicht passt.
Anbei daher mein Code:
Sub Makro1()
ActiveWorkbook.Names.Add Name:="Grafik_Fixum", RefersToR1C1:="=Berechnung!R22C2:OFFSET( _
Berechnung!R22C2,0,VLOOKUP(ED,Berechnung!R2C1:R13C2,2,FALSE),,)"
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = "=Grafik_Fixum"
ActiveChart.SeriesCollection(1).Name = "Test"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Berechnung"
End Sub
Thomas H.
Anzeige