In diesen Zeilen sollen dann 2 Zellen markiert werden, und schliesslich daraus ein Chart erstellt werden. Die Spalte der Zellen ist A und E.
Wie kann ich das dynamisch machen, dass automatisch jede Zelle der Spalte A und E markiert wird, in deren Zeile "dialog" vorkommt. Hier mein bisheriger, über ein Makro erstellter Code:
ActiveWindow.SmallScroll Down:=3
Range("A29,D29").Select
Range("D29").Activate
ActiveWindow.SmallScroll Down:=15
Range("A29,D29,A53,D53").Select
Range("D53").Activate
ActiveWindow.SmallScroll Down:=-42
Range("A29,D29,A53,D53,A5,D5").Select
Range("D5").Activate
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("voyager2").Range( _
"A5,A29,A53,D5,D29,D53"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet