Select Case-Anweisung
25.10.2006 16:04:03
lueckii
Ich habe 12 Diagramme
Diese 12 Diagramme haben teilweise die gleichen Eigenschaften(also z.B. Das Diagramm 3,6 und 8; Diagramm 1,2 und 5;etc.)
Kann man per Select Case anweisung diese Diagramme ansprechen oder muß ich der Reihe nach für jedes DCiagramm einen Fall setzen? So wie unten geht's schon mal nicht
Dim Name as String
For i= 1 to 12
Select Case i
Case ("1") And ("2") And ("5")
Name = "Maier"
Case ("3") And ("6") And ("8")
Name = "Müller
End Select
ActiveSheet.ChartObjects(i).Activate
ActiveChart.SeriesCollection(3).Name = Name
Gruß Martin