Grafik - Max-Wert automatisch ausweisen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Label
Bild

Betrifft: Grafik - Max-Wert automatisch ausweisen
von: thekla
Geschrieben am: 19.11.2003 19:57:32

Hallo,
in Sachen Grafik bin ich weniger fit:
Gibt es eine Möglichkeit, den Max-Wert einer Kurve automatisch in die Grafik einzublenden
bzw. nur den Max-Wert der Kurve als Zahl ausgeben (anstelle aller Werte)?
Vielen Dank für Rückmeldungen.
Grüße Thekla

Bild


Betrifft: AW: Grafik - Max-Wert automatisch ausweisen
von: K.Rola
Geschrieben am: 19.11.2003 20:17:35

Hallo,

denke mit Grafik meinst du ein Diagramm? Was für ein Typ ist das?

Gruß K.Rola


Bild


Betrifft: AW: Grafik - Max-Wert automatisch ausweisen
von: thekla
Geschrieben am: 19.11.2003 20:43:10

Hallo K.rola,
richtig: Diagramm ist gemeint, z.B. Linien-Diagramm
Hast du eine idee?
Gruss Thekla


Bild


Betrifft: AW: Grafik - Max-Wert automatisch ausweisen
von: K.Rola
Geschrieben am: 19.11.2003 20:49:38

Hallo,

das ist n u r für Liniendiagramme ausgelegt:

Option Explicit
Declare

Sub Sleep Lib "Kernel32" (ByVal Zeit As Long)

Sub maxwerT()
Dim arrWerte, P As Long, Pts As Points, Pt As Point, SC1 As Series
If ActiveSheet.ChartObjects(1).Chart.Type <> 4 Then Exit Sub
Sleep 20
On Error Resume Next
Set SC1 = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
SC1.HasDataLabels = True
arrWerte = SC1.Values
P = 1
Set Pts = SC1.Points
  For Each Pt In Pts
    If arrWerte(P) = Application.Max(arrWerte) Then
      Pt.DataLabel.Text = "max " & arrWerte(P) & Chr(10) & Date
      Pt.DataLabel.Font.ColorIndex = 2
      Pt.DataLabel.Font.Size = 10
      Pt.DataLabel.Font.Bold = True
      Pt.MarkerStyle = 8
      Pt.MarkerSize = 10
      Pt.MarkerBackgroundColorIndex = 3
    Else
      Pt.DataLabel.Text = ""
      Pt.MarkerStyle = 8
      Pt.MarkerSize = 6
      Pt.MarkerBackgroundColorIndex = -4105
    End If
    P = P + 1
  Next
End Sub


Gruß K.Rola


Bild


Betrifft: AW: Grafik - Max-Wert automatisch ausweisen
von: K.Rola
Geschrieben am: 19.11.2003 20:51:46

Das hier:

Declare Sub Sleep Lib "Kernel32" (ByVal Zeit As Long)

gehört in eine Zeile(wird hier nicht richtig dargestellt).

Gruß K.Rola


Bild


Betrifft: AW: Grafik - Max-Wert automatisch ausweisen
von: th.heinrich
Geschrieben am: 20.11.2003 22:59:06

guten abend Thekla,

was K.Rola da am laufen hat kann ich nicht beurteilen.

mein vorschlag ermittle in einer zelle das maximum

=MAX(Dein:bereich), fuege in Deinem diagramm ein TEXTFELD ein, danach F2 und in der

bearbeitungszeile BEZUG nehmen auf die zelle in der Du max ermittelst.

gruss thomas


Bild


Betrifft: AW: Grafik - Max-Wert automatisch ausweisen
von: thekla
Geschrieben am: 20.11.2003 23:31:09

Hallo thomas,
danke: Dein Vorschlag ist mir sympatisch. Etwas in der Richtung habe ich mir vorgestellt und auch schon ausprobiert: Doch gelingt es mir nicht, das Textfeld mit einer Zelle im Datenbereich zu verknüpfen, obwohl ich deiner Anweisung folge..???
Was mache ich falsch??
Grüße Thekla


Bild


Betrifft: AW: Grafik - Max-Wert automatisch ausweisen
von: th.heinrich
Geschrieben am: 21.11.2003 09:15:23

hallo Thekla,

danke fuer die sympatie :-)

also Du nimmst ein TEXTFELD aus der ZEICHNEN SYMBOLLEISTE. cursor ins textfeld setzen, F2 druecken, cursor springt in die BEARBEITUNGSZEILE. zelle anclicken in der MAX steht, ENTER und wir haben fertig.

gruss thomas


Bild


Betrifft: AW: Grafik - Max-Wert automatisch ausweisen
von: thekla
Geschrieben am: 23.11.2003 17:13:20

Hallo Thomas,
danke für die Anleitung, genau so mache ich das die ganze Zeit, so hatte ich das auch schon vor meiner Anfrage ausprobiert.
Das ganze geht bis ".... Cursor springt in die Bearbeitungszeile."
Doch dann wird der Wert, auf den ich "zeige" nicht übernommen!!!
Ich kann nur direkt etwas in das Textfeld schreiben, aber es wird keine Funktion eingefügt.
Gruss Thekla


Bild


Betrifft: AW: Grafik - Max-Wert automatisch ausweisen
von: th.heinrich
Geschrieben am: 23.11.2003 22:58:33

hallo Thekla,

kann nicht nachvollziehen wo Dein prob liegt.

https://www.herber.de/bbs/user/2121.xls

gruss thomas


Bild


Betrifft: AW: Grafik - Max-Wert automatisch ausweisen
von: thekla
Geschrieben am: 24.11.2003 10:09:07

Hallo thomas,
danke für die Abbildung: ich kann das Problem auch nicht nachvollziehen: d.h. ich weiß wie die Sache funktionieren sollte! Doch - wie schon gesagt - bei mir geht eben der entscheidende Schritt - die Übernahme einer Funktion in ein Textfeld nicht.
Vielleicht liegt's an irgendeiner Einstellung iin Excel/in Makros etc....
Trotzdem vielen Dank für die heftigen Bemühungen.
Gruss Thekla


Bild

Beiträge aus den Excel-Beispielen zum Thema " Grafik - Max-Wert automatisch ausweisen"