Hi,
Ich habe einige Reihen von Daten und möchte automatisch einen Chart erstellen lassen.
Stuttgart Berlin Dresden Hamburg Nürnberg Rhein/Main
33 81 107 34 30 108 5
Berlin Dresden Erlangen Göppingen Halle Kaiserslautern Magdeburg Mönchengladbach
38 3 4 13 9 3 4 8
(...) stellt euch einfach 1000 Reihen vor immer oben Städte und unten Zahlen und ich möchte jeweils ein Kreis Diagramm machen.
Was ich hinkriege ist, dass VBA versteht, wann es die Daten nicht mehr miteinbeziehen muss:
ActiveCell.Range("A1:A2").Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveSheet.Shapes.AddChart2(251, xlPie).Select
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$30:$F$31")
ActiveCell.Offset(2, 0).Range("A1:A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Allerdings kriege ich es noch nicht hin, dass alle Bezüge komplett relativ sind und das man einen Loop erstellt. Wäre echt nett, wenn jemand helfen könnte. |