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:
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
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
- Sub CellColorsToChart()
- 'Updateby Extendoffice
- Dim xChart As Chart
- Dim I As Long, J As Long
- Dim xRowsOrCols As Long, xSCount As Long
- Dim xRg As Range, xCell As Range
- On Error Resume Next
- Set xChart = ActiveSheet.ChartObjects("Diagramm 7").Chart
- If xChart Is Nothing Then Exit Sub
- xSCount = xChart.SeriesCollection.Count
- For I = 1 To xSCount
- J = 1
- With xChart.SeriesCollection(I)
- Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
- If xSCount > 4 Then
- xRowsOrCols = xRg.Columns.Count
- Else
- xRowsOrCols = xRg.Rows.Count
- End If
- For Each xCell In xRg
- .Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
- .Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
- J = J + 1
- Next
- End With
- Next
- 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
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()