ich versuche derzeit per Makro ein Diagramm zu erstellen, welches aus den Werten in Spalte M und N seine Daten nimmt.
So weit so einfach.
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Range("Tabelle1!$M$17:$N$17")
Da die Werte jedoch nicht immer am selben Ort sind, habe ich einen Filter vorangeschoben.
ActiveSheet.Range("$A$1:$Q$40").AutoFilter Field:=1, Criteria1:=Array("gesuchter Text aus _
Spalte A"), Operator:=xlFilterValues
Nun könnte ich die letzte Zeile ansprechen und würde immer die richtigen Daten bekommen.
Den Inhalt aus Spalte A als Titel zu exportieren funktioniert auch bereits.
ActiveSheet.Range("$A$1:$Q$40").AutoFilter Field:=1, Criteria1:=Array("gesuchter Text aus _
Spalte A"), Operator:=xlFilterValues
Cells(Range("A1").End(xlDown).row, 1).Select
Selection.Copy
Wenn ich diesen Syntax dann aber für das Diagramm verwenden möchte, kommt der Fehler, dass die _ Range nicht für _Global funktioniert.
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Range ("Cells(13,Range(A1).End(xlDown).row):Cells(14, Range( _
A1).End(xlDown).row)")
Ich hoffe mein Anliegen war verständlich und würde mich freuen, wenn jemand dafür eine Lösung hat.
Mit freundlichen Grüßen
Felix