Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Diagramm + VDA

Diagramm + VDA
09.06.2005 20:51:29
Philipp
Hallo Forum,
habe aus dem link excelbeispiele.de folgenden Code um die Farbe von Diagrammbalken über Grenzwerte zu definieren. Es handelt sich in dem Beispiel aber um ein Punkte Diagramm und ich wollte meine Tabelle über ein Balkendiagramm darstellen. Wie muss ich den Code hiefür verändern?
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim varArray As Variant, objSeries As Series, intIndex As Integer
Application.ScreenUpdating = False
If Target.Cells = "" Then
Exit Sub
Else
ActiveSheet.ChartObjects("Diagramm 2").Activate 'Name anpassen!!
Set objSeries = ActiveChart.SeriesCollection(1)
varArray = objSeries.Values
For intIndex = LBound(varArray) To UBound(varArray)
With objSeries.Points(intIndex)
'.MarkerBackgroundColorIndex = 2
If varArray(intIndex) = 1 Then .MarkerBackgroundColorIndex = 3
If varArray(intIndex) = 1 Then .MarkerForegroundColorIndex = 3
If varArray(intIndex) = 2 Then .MarkerBackgroundColorIndex = 4
If varArray(intIndex) = 2 Then .MarkerForegroundColorIndex = 4
If varArray(intIndex) = 3 Then .MarkerBackgroundColorIndex = 5
If varArray(intIndex) = 3 Then .MarkerForegroundColorIndex = 5
If varArray(intIndex) = 4 Then .MarkerBackgroundColorIndex = 6
If varArray(intIndex) = 4 Then .MarkerForegroundColorIndex = 6
If varArray(intIndex) = 5 Then .MarkerBackgroundColorIndex = 7
If varArray(intIndex) = 5 Then .MarkerForegroundColorIndex = 7
If varArray(intIndex) = 6 Then .MarkerBackgroundColorIndex = 8
If varArray(intIndex) = 6 Then .MarkerForegroundColorIndex = 8
End With
Next
Target.Activate
End If
Application.ScreenUpdating = True
End Sub

Danke für eure Hilfe!
vg
Philipp

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm + VDA
11.06.2005 14:40:59
Philipp
Hallo Philipp,
schau Dir mal die VBA-Hilfe zu
ActiveChart.ChartType = xlLine
an. Das hier ist z. B. ein Liniendiagramm. Es gibt x verschiedene Typen. Also nach ChartType (Eigenschaft) suchen.
Ich hoffe ich konnte Dir ein Stück weiterhelfen
Grüße
Philipp
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige