hab schon vor längerer Zeit bzgl. der bedingten Formatierung in Diagrammen angefragt. Damals bekam ich folgende folgenden Link als Hilfestellung: https://www.herber.de/bbs/user/25590.xls
Der Code in dieser Datei funktioniert einwandfrei.
Ich wollte den Code in einer anderen Datei jetzt anwenden und habe diesen in die neue Datei kopiert und angepaßt (Bereich, Tabellenname und Diagrammname.
Jetzt lautet er wie folgt:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [j60:j75]) Is Nothing Then
If Target.Count = 1 Then Call Format_Diagramm
End If
End Sub
Private Sub Format_Diagramm()
Dim Dia As Chart, sc As Series, p As Byte, pc As Byte
Set Dia = Sheets("Tab3").ChartObjects("Diagramm 4").Chart
Set sc = Dia.SeriesCollection(1)
pc = sc.Points.Count
For p = 1 To pc
sc.Points(p).Interior.ColorIndex = 5
If Sheets("Tab3").Cells(p + 1, 2) > 1 Then
sc.Points(p).Interior.ColorIndex = 4
End If
Next
End Sub
Leider funktioniert dieser Code bei der Anwendung in der neuen Datei nun nicht mehr.
Er bewirkt nur noch das Ändern der Farbe im ganzen Diagramm. Es sieht jedoch so aus, als ob die letzte Schleife (die Bedingung der Farbwahl an sich) nicht mehr durchlaufen würde.
Kann mir jemand einen Tip bzw. Hilfe geben?
Vielen Dank!
Gruß
Thomas