Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
268to272
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
268to272
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beschriftung

Beschriftung
14.06.2003 21:16:39
Rolf K
Hallo,Leute
man kann zu jedem Punkt der Kurve auf Grafik die
Beschriftung vom Wert einstellen.Ich
brauche aber nur bei Maximum dazu aber auch Datum.
Wie kann man das bewerkstelligen???
Grüsse
Rolf

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Beschriftung
14.06.2003 21:21:25
L.Vira

Wieviel SeriesCollection sind das?

Re: Beschriftung
14.06.2003 22:37:36
Rolf

Hallo,L.Vira
ich meine eine Kurve aus 80 bis 100 Punkten.
Auf dieser Kurve gibt es ein Maximum der
besonders informativ sien soll!
Grüsse
Rolf

Re: Beschriftung
15.06.2003 00:31:29
L.Vira

Option Explicit
Declare Sub Sleep Lib "Kernel32" (ByVal Zeit As Long)
Sub maxwert02()
Dim arrWerte, B As Long, Pts As Points, Pt As Point, SC1 As Series
Sleep 20
On Error Resume Next
Set SC1 = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
SC1.HasDataLabels = True
arrWerte = SC1.Values
B = 1
Set Pts = SC1.Points
For Each Pt In Pts
If arrWerte(B) = Application.Max(arrWerte) Then
Pt.DataLabel.Text = arrWerte(B) & Chr(10) & Date
Else
Pt.DataLabel.Text = ""
End If
B = B + 1
Next
End Sub



Anzeige
Re: Beschriftung
15.06.2003 09:22:41
Rolf

Hallo,LVira
Du hast GROSSE Arbeit gemacht
werde sofort ausprobieren,ich
dachte das es überhaupt nicht
machbar ist.
DANKE
GRÜSSE
Rolf

Re: Beschriftung
15.06.2003 10:09:16
L.Vira

Das ist gar nicht so groß, wenn man weiß, wie es geht. Das Problem bei Charts ist die Riesenmenge an Objekten, Eigenschaften und Methoden.

Re: Beschriftung
15.06.2003 11:41:02
Rolf

Hallo,LVira
habe probiert- noch geht das Makro nicht!
Dochwohl weil ich den Chart so baue:
=Tabelle1!$C$1:$C$80 und die X-Achse sind die Zeilennummern
(1,2,3,4,.....)aber die Datumwerte liegen in Spalte A.
Die X-Achse kann nicht die Datumswerte bekommen-da kein Platz
alles wird unsichtbar!!Gebe mir die Formel(SeriesCollection)
damit ich mein Chart an Dein Makro anpassen kann.
Noch Frage kann das Makro auch auf der Trendlinie arbeiten??
Grüsse
Rolf


Anzeige
Re: Beschriftung
15.06.2003 12:46:39
L.Vira

Was ist denn das für ein Diagrammtyp? Ich bin davon ausgegangen, es wäre ein Liniendiagramm.

Re: Beschriftung
15.06.2003 13:22:07
Rolf

Hallo,LVira
ja es ist ein linien Diagramm
habe auch Punkte probiert-stille,
also Daten liegen im Bereich C1:C80,
Datumbereich ist A1:A80,liegen in
Tabelle1.zB Zahl1=125,24 und Datum
Format ist 14.6.03
Grüsse
Rolf

Re: Beschriftung
15.06.2003 14:21:40
L.Vira

Ich habs mal genau auf deine Angaben zugeschnitten:

Option Explicit
Declare Sub Sleep Lib "Kernel32" (ByVal Zeit As Long)
Sub maxwerT()
Dim P As Long, Pts As Points, Pt As Point, SC1 As Series
Dim arrDat
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
P = 1
Set Pts = SC1.Points
For Each Pt In Pts
If Cells(P, 3) = Application.Max([c1:c80]) Then
Pt.DataLabel.Text = Cells(P, 3) & Chr(10) & Cells(P, 1)
Pt.DataLabel.Font.ColorIndex = 2
Pt.DataLabel.Font.Size = 8
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


Anzeige
Re: Beschriftung
15.06.2003 16:11:44
Rolf

Hallo,LVira
es gibt etwas leben -so werden
zu jedem Punkt seine Werte ausgegeben
der Maxwert wird nicht gefunden auch
kein Label.Etwas stimmt nicht in logik.
Grüsse
Rolf

Re: Beschriftung
15.06.2003 16:31:49
L.Vira

Also, wie ich schrieb, hab ich die Tabelle genau nach deinen
Angaben nachgebaut und das funktioniert auch.
Mail mir mal deine Tabelle: softsmith@web.de
Betreff:L.Vira Diagramm

Re: Beschriftung
15.06.2003 22:51:26
Rolf

Hi,L.Vira
ich habe mich dochwohl vertippt!!
Dein Makro arbeitet AUSGEZEICHNET!!
Mein höchstes Lob!!DANKE SEHR!!
Grüsse
Rolf

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige