ich benötige eine wenig Hilfe um das Brett vor meinem Kopf abzuschrauben.
Ich möchte ein Diagramm in Abhängigkeit von der Position des markierten Zelle erstellen.
Ich habe mit dem Makrorecorder folgendes Markro aufgenommen.
Sub Makro8()
ActiveCell.Offset(0, 1).Range("A1:B1,A6:B6,A11:B11").Select
ActiveCell.Offset(10, 1).Range("A1").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range( _
"Tabelle1!$B$2:$C$2;Tabelle1!$B$7:$C$7;Tabelle1!$B$12:$C$12")
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SeriesCollection(1).Name = "=Tabelle1!$A$2"
End Sub
Was scheinbar funktioniert ist, dass in Abhängigkeit von der Position der aktiven Zelle die Zellen mit den Daten für das Diagramm markiert werden.
Mehr aber leider auch nicht...ab ActiveSheet.Shapes.AddChart.Select erscheint dann eine Fehlermeldung.
Was mache ich falsch?
https://www.herber.de/bbs/user/139554.xlsm