Grafik, Diagramm mit Kundenpreisen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Lutz,
also zunächst zum Mittelwert, das geht nur, wenn du noch eine Hilfsspalte einfügst und ins Diagramm übernimmst, eigentlich wird das nur eine horizontale Linie, aber ich denke, weil von einer Diagonalen gesprochen wird, dass der Preis auch noch abhängt von der Menge, oder?
Also wenn das so ist, dann muss der Mittelwert normiert werden, das geht eigentlich ganz einfach und zwar folgendermaßen (ungetestet):
Tabelle sieht so aus:
Menge Preis normierterMittelwert (Formel)
100 1000 x
10 100 x
100 500 x
X= folgende Formel:
=(mittelwert($b$2:$b$4)/mittelwert($a$2:$a$4)) *a2 und diese Formel nach unten ziehen und ins Diagramm einbinden, damit das bis zum Nullpunkt geht auch noch den Datenpunkt 0 Menge und 0 Preis.
So nun zum anderen Problem der Farbe, das geht m.M. nach nur mit einem Makro, indem die einzelnen Datenpunkte nach Kriterium eingefärbt werden. Das Kriterium kann dabei der Name des Kunden sein, oder die Kunden werden durchnummeriert. (wie im Makro)

Sub Darstellung()
'hier wird aus Tabelle die letzte Zeile in Spalte A (Ende der Daten) für die maximale Zahl der  _
Durchläufe abgefragt
Max = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To 2 'eigentlich nicht gebraucht, da man wohl nur die eine Datenreihe manipulieren  _
muss?
' hier beginnt die Schleife
For n = 1 To Max
'auswahl für das Kriterium zur Steuerung der Farbe der Punktsymbole aus Spalte e und der  _
Laufvariablen
wahl = "n" & n + 1
krit = Sheets("Werte").Range(wahl).Value
'Firma 1= gelb
'Firma 2 graublau
usw.
ActiveSheet.ChartObjects("Diagramm 25").Activate
ActiveChart.ChartArea.Select
On Error Resume Next
ActiveChart.SeriesCollection(i).Points(n).Select
'Steuerung der Farbe entsprechend der abgefragten Firmennummer hier aus Spalte n
Select Case krit
Case 1
With Selection.Border
.Weight = xlHairline
.LineStyle = xlNone
End With
With Selection
.MarkerStyle = xlCircle
.MarkerBackgroundColorIndex = 6
.MarkerForegroundColorIndex = 6
End With
Case 2
With Selection.Border
.Weight = xlHairline
.LineStyle = xlNone
End With
With Selection
.MarkerStyle = xlCircle
.MarkerBackgroundColorIndex = 47
.MarkerForegroundColorIndex = 47
End With
Case 3
With Selection.Border
.Weight = xlHairline
.LineStyle = xlNone
End With
With Selection
.MarkerStyle = xlCircle
.MarkerBackgroundColorIndex = 7
.MarkerForegroundColorIndex = 7
End With
Case 4
With Selection.Border
.Weight = xlHairline
.LineStyle = xlNone
End With
With Selection
.MarkerStyle = xlCircle
.MarkerBackgroundColorIndex = 30
.MarkerForegroundColorIndex = 30
End With
Case 5
With Selection.Border
.Weight = xlHairline
.LineStyle = xlNone
End With
With Selection
.MarkerStyle = xlCircle
.MarkerBackgroundColorIndex = 4
.MarkerForegroundColorIndex = 4
End With
Case 6
With Selection.Border
.Weight = xlHairline
.LineStyle = xlNone
End With
With Selection
.MarkerStyle = xlCircle
.MarkerBackgroundColorIndex = 5
.MarkerForegroundColorIndex = 5
End With
Case 7
With Selection.Border
.Weight = xlHairline
.LineStyle = xlNone
End With
With Selection
.MarkerStyle = xlCircle
.MarkerBackgroundColorIndex = 12
.MarkerForegroundColorIndex = 12
End With
Case 8
With Selection.Border
.Weight = xlHairline
.LineStyle = xlNone
End With
With Selection
.MarkerStyle = xlCircle
.MarkerBackgroundColorIndex = 3
.MarkerForegroundColorIndex = 3
End With
End Select
' Ende der Auswahl
Next n
Next i
' hier endet die Schleife
End Sub

Viele Grüße, falls es nicht klappt einfach an mich die Exceldatei senden (Seidel-Welka@online.de), aber mehr lernnst du, wenn du dich durchkämpfst!

Beliebteste Forumthreads (12 Monate)

Grafik, Diagramm mit Kundenpreisen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Grafik, Diagramm mit Kundenpreisen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread