Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

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
Excel-Beispiele zum Thema " Grafik - Max-Wert automatisch ausweisen"
Grafik in Kopfzeile Export von Diagrammen im Grafikformat
Grafiken im Tabellenblatt ordnen Grafiken an eine Seite anpassen
Grafik einfügen, wenn Wert in A1 unter eine Grenze sinkt Grafikprogramm aufrufen und Bild laden
Grafik in Abhängigkeit einer Zelleingabe einfügen Grafik nach Doppelklick laden
Grafiken aus ausgeblendeten Blättern einblenden Grafik nach Eingabe des Dateinamens einfügen