Diagrammsäule mehrfarbig

Hallo Forum,hallo Andre aus Gera,
für mein Problem,eine Diagrammsäule mehrfarbig -abhängig von der Datenquelle- zu gestalten hat mir Andre aus Gera sehr geholfen und das untenstehende Makro erstellt.
Leider erscheint eine Fehlermeldung (Die Methode 'SeriesCollection' für das Objekt '_Chart' ist fehlgeschlagen),wenn ich den Datenbereich vergrössern muss und die Zeile "ActiveChart.SeriesCollection(iZeile - 2).Points(1).Select" wird gelb unterlegt!
Was muss ich tun damit das Makro funktioniert wenn ich den Datenbereich erweitern muss?Bin da wirklich noch sehr unbedarft,sorry!
Gruss Rosi


Sub Makro1()
' Makro am 04.11.2007 von schauan aufgezeichnet
' Diagramm mus zuerst angeklickt werden!
'Variablendeclarationen
Dim iZeile As Long
Dim iColor As Integer
'Erste Zeile mit Daten
iZeile = 3
'Tue solange Nr eingetragen
Do While Len(Sheets("Daten").Cells(iZeile, 1)) > 0
'Datenpunkt auswählen
ActiveChart.SeriesCollection(iZeile - 2).Points(1).Select
'Wenn Eintrag in Spalte B
If Sheets("Daten").Cells(iZeile, 2)  "" Then
'Farbauswahl 1
iColor = 4
'Oder wenn Eintrag in Spalte C
ElseIf Sheets("Daten").Cells(iZeile, 3)  "" Then
'Farbauswahl 2
iColor = 6
'Oder dann dürfte was in Spalte D stehen ..
Else
'Farbauswahl 3
iColor = 3
End If
'Mit dem selectierten Diagramm
Selection.Interior.ColorIndex = iColor
'Zeilenzähler hochsetzen
iZeile = iZeile + 1
'und nocheinmal ? ...
Loop
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro1() 'Variablendeclarationen Dim iZeile As Long Dim iColor As Integer Dim chDiagramm As Chart ' Diagramm als Diagrammobjekt 'Erste Zeile mit Daten iZeile = 3 Set chDiagramm = Worksheets("Diagramm").ChartObjects(1).Chart With chDiagramm 'Tue solange Nr eingetragen Do While Len(Sheets("Daten").Cells(iZeile, 1)) > 0 'Datenpunkt auswählen With .SeriesCollection(iZeile - 2).Points(1) 'Wenn Eintrag in Spalte D If Sheets("Daten").Cells(iZeile, 4) "" Then 'Farbauswahl 1 iColor = 4 'Oder wenn Eintrag in Spalte C ElseIf Sheets("Daten").Cells(iZeile, 3) "" Then 'Farbauswahl 2 iColor = 6 Else 'Farbauswahl 3 iColor = 3 End If 'Mit dem selectierten Diagramm .Interior.ColorIndex = iColor 'Zeilenzähler hochsetzen iZeile = iZeile + 1 End With 'und nocheinmal ? ... Loop End With End Sub

Sub Makro1() 'Variablendeclarationen Dim iZeile As Long Dim iColor As Integer Dim chDiagramm As Chart ' Diagramm als Diagrammobjekt 'Erste Zeile mit Daten Set chDiagramm = Worksheets("Diagramm").ChartObjects(1).Chart With chDiagramm 'Tue solange Nr eingetragen For iZeile = 1 To chDiagramm.SeriesCollection.Count 'Datenpunkt auswählen With .SeriesCollection(iZeile).Points(1) 'Wenn Eintrag in Spalte D If Sheets("Daten").Cells(iZeile + 2, 4) "" Then 'Farbauswahl 1 iColor = 4 'Oder wenn Eintrag in Spalte C ElseIf Sheets("Daten").Cells(iZeile + 2, 3) "" Then 'Farbauswahl 2 iColor = 6 Else 'Farbauswahl 3 iColor = 3 End If 'Mit dem selectierten Diagramm .Interior.ColorIndex = iColor 'Zeilenzähler hochsetzen End With 'und nocheinmal ? ... Next iZeile End With End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread