Wie kann man ein Diagramm in Excel basierend auf der Zellenfarbe einfärben?

Normalerweise ist die Farbe des Säulenbalkens beim Erstellen eines Diagramms die Standardfarbe. Wenn Sie die Füllfarbe für jeden Balken basierend auf den Zellenfarben formatieren müssen, wie im folgenden Screenshot gezeigt, wie könnten Sie das in Excel lösen?

Diagramm mit einer oder mehreren Datenreihen basierend auf der Zellenfarbe mit VBA-Codes einfärben

Diagramm mit einer oder mehreren Datenreihen basierend auf der Zellenfarbe mit einem erstaunlichen Feature einfärben

Diagramm mit einer oder mehreren Datenreihen basierend auf der Zellenfarbe mit VBA-Codes einfärben

Diagramm mit einer Datenreihe basierend auf der Zellenfarbe einfärben

Mit dem folgenden VBA-Code können Sie schnell die Farbe des Diagramms ändern, das eine Datenreihe basierend auf der ursprünglichen Zellenwertfarbe enthält. Gehen Sie dazu wie folgt vor:

1. Erstellen Sie zunächst ein Balken- oder Säulendiagramm, wie im folgenden Screenshot gezeigt (Daten auswählen und auf Einfügen > Säulen- oder Balkendiagramm einfügen klicken):

2. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

3. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Balkendiagramme mit einer Datenreihe basierend auf der Zellenfarbe einfärben:

Sub ColorChartColumnsbyCellColor()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, xRows As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    With xChart.SeriesCollection(1)
        Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
        xRows = xRg.Rows.Count
        Set xRg = xRg(1)
        For I = 1 To xRows
            .Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex)
        Next
    End With
End Sub

Hinweis: Im obigen Code ist 'Chart 1' der Name des Diagramms, das Sie verwenden möchten. Ändern Sie es bitte entsprechend Ihrem eigenen Namen.

4. Nachdem Sie den obigen Code eingefügt haben, drücken Sie bitte die F5-Taste, um diesen Code auszuführen, und die Farbe der Diagrammbalken wird basierend auf der ursprünglichen Zellenfarbe geändert, siehe Screenshot:

Diagramm mit mehreren Datenreihen basierend auf der Zellenfarbe einfärben

Wenn Ihr Diagramm mehrere Datenreihen enthält, wenden Sie bitte den folgenden VBA-Code an:

1. Erstellen Sie bitte das Balken- oder Säulendiagramm, das mehrere Datenreihen enthält, wie im folgenden Screenshot gezeigt:

2. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

3. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Balkendiagramme mit mehreren Datenreihen basierend auf der Zellenfarbe einfärben:

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("Chart 1").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

4. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und die Diagrammbalken werden sofort mit den ursprünglichen Zellenfarben gefüllt, siehe Screenshot:

Hinweise:

1. Im obigen Code ist 'Chart 1' der Name des Diagramms, das Sie verwenden möchten. Ändern Sie es bitte entsprechend Ihrem eigenen Namen.

2. Dieser Code kann auch auf ein Liniendiagramm angewendet werden.

Diagramm mit einer oder mehreren Datenreihen basierend auf der Zellenfarbe mit einem erstaunlichen Feature einfärben

Durch die Verwendung der obigen Codes stimmen die Farben des Diagramms nicht immer mit der Zellenfarbe überein. Um dieses Problem zu lösen, möchte ich hier ein nützliches Tool vorstellen - Diagrammfarbe basierend auf Zellenfarbe ändern von Kutools für Excel. Mit dieser praktischen Funktion können Sie das Diagramm schnell und einfach basierend auf der Zellenfarbe einfärben.

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Fügen Sie zuerst das Diagramm ein, das Sie verwenden möchten, und wählen Sie dann das Diagramm aus. Klicken Sie anschließend auf Kutools > Diagramme > Diagrammtools > Diagrammfarbe basierend auf Zellenfarbe ändern, siehe Screenshot:

2. Danach wird ein Hinweisfenster angezeigt, klicken Sie bitte auf die Schaltfläche OK.

3. Nun wurde das von Ihnen ausgewählte Diagramm basierend auf den Zellenfarben eingefärbt, wie in den folgenden Screenshots gezeigt:

Diagramm mit einer Datenreihe basierend auf der Zellenfarbe einfärben

Diagramm mit mehreren Datenreihen basierend auf der Zellenfarbe einfärben

Jetzt Kutools für Excel herunterladen und kostenlos testen!

Weitere Artikel zu Diagrammen: