Beim ersten hängen die Daten und die Titelzeile zusammen:
Range("A1:U12").Select
Selection.SpecialCells(xlCellTypeVisible).Select ' jede 2. Spalte ist ausgeblended
Charts.Add
ActiveChart.Name = "Titel 1"
ActiveChart.ChartType = xlColumnStacked
Beim zweiten liegen die Daten und die Titelzeile auseinander:
Range("A13:U21, A1:U1").Select
Selection.SpecialCells(xlCellTypeVisible).Select ' jede 2. Spalte ist ausgeblended
Charts.Add
ActiveChart.Name = "Titel "
ActiveChart.ChartType = xlColumnStacked
Beim ersten Diagramm wird
- Spalte 1 zur X-Achse
- Zeile 1 zur Legende
beim zweiten
- Spalte 1 zur Legende
- Zeile 1 zur X-Achse
Was muß ich eintragen, dass das 2. Diagramm wie das erste aussieht?
Gruß Werner.