Fehlermeldung: Select-Methode
01.12.2006 09:27:02
lueckii
Ich habe folgendes Problem!
Ich hab nen Code geschrieben, der variabel Datenreihen in nem Diagramm ersetzt. Beim Debuggen kommt jedoch immer ne Fehlermeldung bei SeriesCollection(5). Entweder kann die Selectanweisung oder die Markersize anweisung nicht ausgefühnrt werden. woran könnte das liegen? Die Reihen 1 und 2 sind Säulen, die Reihen 3,4 und 5 sind Linien. Der Fehler tritt immer n ur bei der 5ten Datenreihe auf.
ZelleAr1 = ZelleAr + 1
ZelleBr1 = ZelleBr + 1
ActiveSheet.ChartObjects(i).Activate
ActiveChart.SeriesCollection(1).Select
With Selection
.Name = "Aktuell"
.XValues = "='" & "Kennzahlen pro Kunde" & "'!R4C8:R4C19"
.Values = "='" & "Kennzahlen pro Kunde" & "'!R" & ZelleAr1 & "C" & ZelleAc & ":R" & ZelleBr1 & "C" & ZelleBc
.ChartType = xlColumnClustered
End With
ActiveChart.SeriesCollection(2).Select
With Selection
.Name = "Vorjahr"
.XValues = "='" & "Kennzahlen pro Kunde Vorjahr" & "'!R4C8:R4C19"
.Values = "='" & "Kennzahlen pro Kunde" & "'!R" & ZelleAr1 & "C" & ZelleAc & ":R" & ZelleBr1 & "C" & ZelleBc
.ChartType = xlColumnClustered
End With
ZelleAr1 = ZelleAr1 + 1
ZelleBr1 = ZelleBr1 + 1
ActiveChart.SeriesCollection(4).Select
With Selection
.Name = "relativ (Marge) aktuell"
.Values = "='" & "Kennzahlen pro Kunde" & "'!R" & ZelleAr1 & "C" & ZelleAc & ":R" & ZelleBr1 & "C" & ZelleBc
.ChartType = xlLine
.MarkerSize = 2
End With
ActiveChart.SeriesCollection(5).Select
With Selection
.Name = "relativ (Marge) Vorjahr"
.Values = "='" & "Kennzahlen pro Kunde Vorjahr" & "'!R" & ZelleAr1 & "C" & ZelleAc & ":R" & ZelleBr1 & "C" & ZelleBc
.ChartType = xlLine
.Markersize = 2
End With
End Select
ZelleAr = ZelleAr + 1
ZelleBr = ZelleBr + 1
i = i + 1
Loop
Vielleicht weiß hier ja jemand Rat
Gruß Martin