Discussion:
VBA: Diagramm-Datenreihe-letzterWert-anzeigen
(zu alt für eine Antwort)
Reinhard Schüll
2007-11-03 09:09:06 UTC
Permalink
Hallo NG,
wie läßt sich der letzte ZAHLENwert einer sich ständig erweiternden
Datenreihe ermitteln und im Diagramm anzeigen?
Sicher nur durch VBA lösbar.
Gruß Reinhard
Beverly
2007-11-03 09:30:14 UTC
Permalink
Hi Reinhard,

1. kann man ohne VBA lösen - schau mal auf meine HP, Seite "Diagramme". Dort
findest du das Beispiel "Dynamisches Diagramm1"

http://c.excelhost.de/c_beverly/getfile.php?id=5

2. kann man mit VBA lösen - dazu findest du auf meiner HP, Seite "Diagramm
m. VBA" das Beispiel "Dynamischer Datenbereich"

http://c.excelhost.de/c_beverly/getfile.php?id=32

Bis später,
Karin
Post by Reinhard Schüll
Hallo NG,
wie läßt sich der letzte ZAHLENwert einer sich ständig erweiternden
Datenreihe ermitteln und im Diagramm anzeigen?
Sicher nur durch VBA lösbar.
Gruß Reinhard
Reinhard Schüll
2007-11-03 16:02:03 UTC
Permalink
Hallo Karin,
nimm es mir nicht übel, aber knapp am Thema vorbei. Die Lösung dynamischer
Datenreihen kenne ich so oder ähnlich bereits und wende sie auch an. Evtl.
baue ich die Lösung mit der Erweiterung noch ein.
Mein Gedanke war, dass ich im (dynamischen) Diagramm die Anzeige des
Zahlenwertes der Datenreihe an dem letzen Messpunkt angezeigt erhalte. Also
z.B. bei einem Balkendiagramm oben am Balken der Wert steht, aber wie
gesagt nur beim letzten Balken jeweils und nicht über die gesamte
Balkenformation, was ja relativ leicht per VBA ein- oder auszuschalten
möglich wäre.
Gruß Reinhard.
Post by Beverly
Hi Reinhard,
1. kann man ohne VBA lösen - schau mal auf meine HP, Seite "Diagramme". Dort
findest du das Beispiel "Dynamisches Diagramm1"
http://c.excelhost.de/c_beverly/getfile.php?id=5
2. kann man mit VBA lösen - dazu findest du auf meiner HP, Seite "Diagramm
m. VBA" das Beispiel "Dynamischer Datenbereich"
http://c.excelhost.de/c_beverly/getfile.php?id=32
Bis später,
Karin
Post by Reinhard Schüll
Hallo NG,
wie läßt sich der letzte ZAHLENwert einer sich ständig erweiternden
Datenreihe ermitteln und im Diagramm anzeigen?
Sicher nur durch VBA lösbar.
Gruß Reinhard
Thomas Ramel
2007-11-03 16:12:42 UTC
Permalink
Grüezi Reinhard

Reinhard Schüll schrieb am 03.11.2007
Post by Reinhard Schüll
Mein Gedanke war, dass ich im (dynamischen) Diagramm die Anzeige des
Zahlenwertes der Datenreihe an dem letzen Messpunkt angezeigt erhalte. Also
z.B. bei einem Balkendiagramm oben am Balken der Wert steht, aber wie
gesagt nur beim letzten Balken jeweils und nicht über die gesamte
Balkenformation, was ja relativ leicht per VBA ein- oder auszuschalten
möglich wäre.
Das müsstest Du wohl per VBA lösen, doch vielleicht ist folgende noch von
Interesse:

Ermittle in einer Zelle per Formel den letzten eingetragenen Wert der
Datenreihe.
Erstelle im Diagramm nun ein Textfeld, das Du mit dieser Zelle verknüpfst.
So hast Du den letzten Wert immer im Diagramm dargestellt und kannst das
Textfeld platzieren wo Du gerne möchtest.


Mit freundlichen Grüssen
Thomas Ramel
--
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2003 SP-2]
Microsoft Excel - Die ExpertenTipps
Beverly
2007-11-03 16:37:01 UTC
Permalink
Hi Reinhard,

wenn das Diagramm sich nicht erweitert, kannst du alle Beschriftungslabel
bis auf das letzte von Hand löschen. Dann benötigst du kein zusätzliches
Textfeld.

Wenn sich das Diagramm erweitert:

Sub letzter_wert()
Dim chDiagramm As Chart
Dim inPunkt As Integer
Set chDiagramm = ActiveSheet.ChartObjects(1).Chart
With chDiagramm.SeriesCollection(1)
.ApplyDataLabels
For inPunkt = 1 To .Points.Count - 1
.Points(inPunkt).DataLabel.Text = ""
Next inPunkt
End With
End Sub

Bis später,
Karin
Post by Reinhard Schüll
Hallo Karin,
nimm es mir nicht übel, aber knapp am Thema vorbei. Die Lösung dynamischer
Datenreihen kenne ich so oder ähnlich bereits und wende sie auch an. Evtl.
baue ich die Lösung mit der Erweiterung noch ein.
Mein Gedanke war, dass ich im (dynamischen) Diagramm die Anzeige des
Zahlenwertes der Datenreihe an dem letzen Messpunkt angezeigt erhalte. Also
z.B. bei einem Balkendiagramm oben am Balken der Wert steht, aber wie
gesagt nur beim letzten Balken jeweils und nicht über die gesamte
Balkenformation, was ja relativ leicht per VBA ein- oder auszuschalten
möglich wäre.
Gruß Reinhard.
Post by Beverly
Hi Reinhard,
1. kann man ohne VBA lösen - schau mal auf meine HP, Seite "Diagramme". Dort
findest du das Beispiel "Dynamisches Diagramm1"
http://c.excelhost.de/c_beverly/getfile.php?id=5
2. kann man mit VBA lösen - dazu findest du auf meiner HP, Seite "Diagramm
m. VBA" das Beispiel "Dynamischer Datenbereich"
http://c.excelhost.de/c_beverly/getfile.php?id=32
Bis später,
Karin
Post by Reinhard Schüll
Hallo NG,
wie läßt sich der letzte ZAHLENwert einer sich ständig erweiternden
Datenreihe ermitteln und im Diagramm anzeigen?
Sicher nur durch VBA lösbar.
Gruß Reinhard
Reinhard Schüll
2007-11-04 07:07:41 UTC
Permalink
Hallo Karin,
ja, diese VBA-Lösung ist ok. Da steht der Text dann auch gleich an der
richtigen Stelle ... :-)... ohne Hand anlegen zu müssen.
Danke Dir!
Gruß Reinhard
Post by Beverly
Hi Reinhard,
wenn das Diagramm sich nicht erweitert, kannst du alle Beschriftungslabel
bis auf das letzte von Hand löschen. Dann benötigst du kein zusätzliches
Textfeld.
Sub letzter_wert()
Dim chDiagramm As Chart
Dim inPunkt As Integer
Set chDiagramm = ActiveSheet.ChartObjects(1).Chart
With chDiagramm.SeriesCollection(1)
.ApplyDataLabels
For inPunkt = 1 To .Points.Count - 1
.Points(inPunkt).DataLabel.Text = ""
Next inPunkt
End With
End Sub
Bis später,
Karin
Loading...