Dynamisches Punkte-Diagramm

roger · 2007-09-10T13:34:24+00:00

Hallo, Ich habe ein punkte-diagramm und will dieses jeden Tag um einen Eintrag erweitern. Das heisst, in Spalte A ist das Datum, Spalte B und Spalte C enthalten Werte. Jeden Tag kommt nun eine weitere Zeile dazu. Beginnen tut dies ab zeile 26. Kann mir da jemand helfen? Ich habe bereits gesucht und etwas über ein Balkendiagramm gefunden. Das ist aber nicht das was ich brauche. Vielen Dank, Roger

Hi Roger,
ja, das sollte der Auslöser für das Problem sein, weil da die letzte belegte Zelle falsch ermittelt wird. Versuche es mal so


Private Sub Worksheet_Change(ByVal Target As Range)
Dim loZeile As Long         ' Variable für Zeile
Dim chDiagramm As Chart     ' Variabel für das Diagramm als Objekt
loZeile = 26
'   Bildschirmaktualisierung aus
Application.ScreenUpdating = False
With ActiveSheet
'          prüfen ob Änderung im definierten Bereich liegt
If Target.Column = 22 Then
'           letzte belegte Zeile ermitteln
Do
loZeile = loZeile + 1
Loop While Not IsEmpty(.Cells(loZeile, 22))
'           der Variablen das Diagrammobjekt zuweisen
Set chDiagramm = .ChartObjects(1).Chart
'           Datenbereich insgesamt dem Diagramm zuweisen
chDiagramm.SetSourceData Source:=.Range(.Cells(26, 22), .Cells(loZeile - 1, 24)),  _
PlotBy:=xlColumns
End If
End With
'   Bildschirmaktualisierung ein
Application.ScreenUpdating = True
'   Variable leeren
Set chDiagramm = Nothing
End Sub

Bis später,
Karin

Hi Roger,
das kann so auch gar nicht funktionieren, weil das Ergebnis der Formel kein Datum ist! Die X-Werte sind Daten (Mehrzahl von Datum) und Excel erkennt sie auch als Datum. Intern ist das Datum aber eine Zahl, z.B. ist der 01.01.2007 intern 39083. Die Zahl, die sich aus der Formel ergibt, ist jedoch 70. Wie soll Excel eine Wertereihe mit aufsteigenden X-Werten denn interpretieren, wenn plötzlich eine Zahl kommt, die nur einen Bruchteil der anderen Werte ausmacht? Das wäre dasselbe, als wenn du eine Leiter hochsteigst und plötzlich fehlt eine Sprosse - also streikt Excel und zeigt die tollsten Sachen an.
Der Code ist so geschreiben, dass die Zelle in Spalte V ermittelt wird, in der kein Wert drinsteht, die Excel also quasi als ohne Inhalt erkennt, da mir nicht bekannt war (das ging aus deinem ersten Beispiel nicht hervor), dass zwischen den Datumswerten und den Formeln keine leeren Zellen vorkommen, wie es jetzt in diesem Beispiel ist. Aber man kann das ändern, indem nicht geprüft wird ob die Zelle keinen Inhalt hat, sondern ob der Inhalt ein Datum ist. Du müssest die eine Zeile durch diese austauschen


Loop While IsDate(.Cells(loZeile, 22))

Bis später,
Karin

Forumthread: Dynamisches Punkte-Diagramm

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Dynamisches Punkte-Diagramm

Forumthread: Dynamisches Punkte-Diagramm

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread