Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
296to300
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
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Max im Liniendiagramm

Max im Liniendiagramm
21.08.2003 15:39:17
Gunther
Hallo Forum,

ich hab die Frage schon vor ein paar Minuten gestellt, sie ist aber
im Forum nicht aufgetaucht???

Ist es möglich in einem Liniendiagramm nur den Datenpunkt zu beschriften,
der das Maximum darstellt und wenn ja, wie?

Es sollte der Wert und das Tagesdatum angezeigt werden.

Der Datenpunkt sollte sich von den anderen unterscheiden(z.B. rot und größer).
Als Marker wird ein Kreis verwendet.

Danke und Gruß
Gunther

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

Betreff
Datum
Anwender
Anzeige
AW: Max im Liniendiagramm
21.08.2003 16:18:27
JRobert
Hallo Gunther,
mit der Maus auf den Max gehen, linke Maustaste drucken- wird gesamte Linie
aktiv, danach noch mal linke Maustaste-erscheint ein Kreuz, jetzt doppelklick mit
linke- kommt ein Fenster, wo du kannst deine Einstellungen vornehmen.
Viel Spaß mit Maus!
Robert


danke, Max im Liniendiagramm, aber...
21.08.2003 16:41:26
Gunther
das sollte schon automatisch passieren, wenn sich etwas an den Werten ändert.

Aber dennoch danke.

Gruß Gunther


AW: Max im Liniendiagramm
21.08.2003 16:49:50
K.Rola
Hallo,

mal ein Beispiel für eine SeriesCollection. Lies die
Werte der Points in ein Array ein:
DeinArray=ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Values
p = 1
For each pt in ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Points
If DeinArray(p) = Application.Max(DeinArray) Then
pt.DataLabel.Text = "max. " & DeinArray(p) & " " & Date
pt.MarkerSize = 10
pt.MarkerBackgroundColorIndex = 3
else
pt.DataLabel.Text = ""
pt.MarkerSize = 6
pt.MarkerBackgroundColorIndex = 1
end if
p=p+1
next

Wenn es mehr als eine SeriesCollection ist, dann halt noch eine Schleife
darüber.

Das Ganze kannst du z.B. über Worksheet_change oder Calculate aufrufen.

Gruß K.Rola




Anzeige
AW: Max im Liniendiagramm
21.08.2003 17:54:46
Gunther
Hallo K.Rola,

der Hinweis mit den Points wars, klappt perfekt, danke.

Gruß Gunther


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige