Hi zusammen,
habe einen Code, der mir Säulen einfärben soll.
Das funktioniert auch super :) Danke an die Helfer von damals =D
Jetzt habe ich das gute Stück auf ein Tabellenblatt kopiert, in dem aber mehr wie 1 Diagramm liegt.
Denke das es daran liegt, dass es nicht mehr funktioniert.
Wie muss ich den Code den Umschreiben, wenn ich möchte dass er nur auf dieses eine Diagramm, heißt: DiagrammFarbenSäulen anspringt?
Sub SauelenFaerben()
Dim rngBereich As Range
Dim lngZeile As Long
Dim strBereich As String
Dim varFarbe As Variant
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
strBereich = Split(.Formula, ",")(1)
Set rngBereich = Range(strBereich)
For lngZeile = 1 To rngBereich.Cells.Count
Select Case rngBereich.Cells(lngZeile).Value
Case "yellow"
varFarbe = 65535
Case "blue"
varFarbe = 14395790
Case "red"
varFarbe = 255
Case "green"
varFarbe = 5296274
Case "orange"
varFarbe = 49407
Case "black"
varFarbe = 8421504
Case "white"
varFarbe = 15921906
Case "multicolored"
varFarbe = 10498160
Case "others"
varFarbe = 12566463
' Case "schwarz-weiß-schwarz"
' varFarbe = "schwarz-weiß-schwarz"
End Select
If IsNumeric(varFarbe) Then
.Points(lngZeile).Interior.Color = varFarbe
Else
' hier der Code wie die Säule gefärbt werden soll wenn "schwarz-weiß-schwarz" in der Zelle steht
End If
Next lngZeile
End With
End Sub

Danke vorab, falls jemand helfen kann.
Gruß Andreas