Bedingte Formatierung Diagramm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BedingtFormatieren() Dim lngPunkt As Long Dim pktPunkt As Point Dim strBereich As String With ActiveSheet.ChartObjects(1).Chart.SeriesCollection("Dauer") strBereich = Split(.Formula, ",")(1) For lngPunkt = 1 To .Points.Count If Range(strBereich).Cells(lngPunkt).Offset(0, 1).DisplayFormat.Interior.ColorIndex _ xlNone Then Set pktPunkt = .Points(lngPunkt) pktPunkt.Interior.Color = _ Range(strBereich).Cells(lngPunkt).Offset(0, 1).DisplayFormat.Interior.Color End If Next lngPunkt End With End Sub

Sub BedingtFormatieren() Dim lngPunkt As Long Dim pktPunkt As Point Dim rngSpalte As Range With tblBalken With .ListObjects(1) Set rngSpalte = .HeaderRowRange.Find("Version", lookat:=xlWhole) If Not rngSpalte Is Nothing Then With .Parent.ChartObjects(1).Chart.SeriesCollection("Dauer") For lngPunkt = 1 To .Points.Count If tblBalken.ListObjects(1).DataBodyRange.Columns(rngSpalte.Column). _ Cells(lngPunkt).DisplayFormat.Interior.ColorIndex xlNone Then Set pktPunkt = .Points(lngPunkt) pktPunkt.Interior.Color = _ tblBalken.ListObjects(1).DataBodyRange.Columns(rngSpalte.Column) _ .Cells(lngPunkt).DisplayFormat.Interior.Color End If Next lngPunkt End With End If End With End With End Sub

Hallo Karin,
der Code klappt super für den Minimalen Bereich, für die maximale Begrenzung habe ich den Code noch um eine Zeile erweitert und die Tabelle um eine zusätzliche Spalte. In der lasse ich jetzt den Maximum wert berechnen und dann passt sich die X-Achse den Werten an. Um den Abstand zu den Seiten zu gewährleisten rechne ich dann noch einen Offset von 15 drauf
Mein Ziel was ich gerade verfolge ist es, für jede MSN also für jede Version UAE01 zusätzliche Informationen in einen zweiten Diagramm anzeigen zu lassen in diesen Fall flächenwerte die dazu kommen. Es gibt fünf Zeitpunkte zu denen Werte hinzukommen.
1. In dem Balkendiagramm wo du mir geholfen hast, wollte ich übersichtlich die Versionen darstellen, wann welche kommen.
2. In einen zweiten Diagramm darunter, woran ich gerade dran arbeite, möchte ich einzelne Maschinen mit den fünf Zeitpunkten darstellen. Vielleicht alle Versionen für das nächste halbe Jahr, detailiert mit den fünf Zeitpunkten. Und dann unter den Diagramm die summierten Werte zu den jeweiligen Zeitpunkten der Versionen für das halbe Jahr. Das sind so meine Überlegungen
Und da hast du mir schon sehr geholfen Heute mit dem Code, das war echt super. Jetzt kann ich die einzelnen Versionen über bedingte formatierung direkt im Diagramm anzeigen lassen und jeder sieht sofort welche Varianten werden da auf uns zu kommen. Aber zu jeder Version gibt es noch details und die würde ich auch gerne darstellen. Daher die Überlegungen mit den filtern und dynamischen diagrammen wo ich mich noch einarbeiten muss.
Viele Grüße
Christian

Sub Fen() Fa = Array(14136213, 5066944, 16777215) 'Blau, rost-rot, Weis ActiveSheet.ChartObjects("Diagramm 1").Activate With ActiveChart.FullSeriesCollection(2) .Select For i = 5 To Cells(Rows.Count, "B").End(xlUp).Row If Cells(i, "B").DisplayFormat.Interior.Color = Fa(0) Then .Points(i - 4).Format.Fill.ForeColor.ObjectThemeColor = msoThemeColorText2 Else .Points(i - 4).Format.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent2 End If Next i End With End Sub

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread