Färbung von Diagramm mittels Makro und Bedingter Formatierung

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von INOPIAE.

    Färbung von Diagramm mittels Makro und Bedingter Formatierung

    Hallo Zusammen guten Abend!!
    ich bin Neu hier und habe folgendes Problem, hoffe Ihr könnt mir helfen...
    Ich habe ein Diagramm erstellt das ich mit einem Makro die Farbe ändern möchte.
    Das Funktioniert soweit auch wenn ich die Zelle manuell fülle und das Makro starte.
    Mein Problem ist, wenn ich jetzt eine Bedingte Formatierung hinterlege um die Zelle je nach Wert zu färben funktioniert das Makro nicht. Hier Meine Code den ich verwende:

    Visual Basic-Quellcode

    1. Sub CellColorsToChart()
    2. 'Updateby Extendoffice
    3. Dim xChart As Chart
    4. Dim I As Long, J As Long
    5. Dim xRowsOrCols As Long, xSCount As Long
    6. Dim xRg As Range, xCell As Range
    7. On Error Resume Next
    8. Set xChart = ActiveSheet.ChartObjects("Diagramm 7").Chart
    9. If xChart Is Nothing Then Exit Sub
    10. xSCount = xChart.SeriesCollection.Count
    11. For I = 1 To xSCount
    12. J = 1
    13. With xChart.SeriesCollection(I)
    14. Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
    15. If xSCount > 4 Then
    16. xRowsOrCols = xRg.Columns.Count
    17. Else
    18. xRowsOrCols = xRg.Rows.Count
    19. End If
    20. For Each xCell In xRg
    21. .Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
    22. .Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
    23. J = J + 1
    24. Next
    25. End With
    26. Next
    27. End Sub


    Danke für Eure Hilfe,Grüsse aus Schaffhausen

    Thema verschoben; Das Thema wird automatisch dort erstellt, wo man sich befindet, wenn man auf [* Neues Thema] klickt.
    CodeTags gesetzt     ~VaporiZed
    Bilder

    • Screenshots.JPG

      80,15 kB, 1.157×705, 49 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Die bedingte Formatierung auszulesen geht nicht über die Zellfarbe.
    Entweder, du baust die Formatierungsbedingungen in Deinen Code ein oder Du must für die Zellen abfragen, welche bedingte Formatierung greift. Dazu siehe herber.de/mailing/Bedingte_Formatierung_auslesen.htm
    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

Facebook