Dynamisches Punkte-Diagramm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

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

Hi Roger,
ich kann es jetztnicht mehr nachvollziehen, da die Links auf die vorhergehenden Beispiele nicht mehr funktionieren und ich jetzt keins davon zur Verfügung hab, aber ich hatte den Eindruck, dass da in Spalte V Einträge von Hand standen und keine Formeln - die kamen erst weiter unten. Aber sei es wie es sei - da die Einträg nicht in Spalte V erfolgen sondern numehr in Spalte A, muss diese überwacht werden, ob dort ein Eintrag stattgefunden hat


If Target.Column = 1 Then

Dann kannst du aber auch den vorhergehenden Code nehmen, denn der funktioniert ja, wenn unterhalb des letzten eingetragenen Wertes keine Formeln folgen. Und er ist wesentlich schneller, da nicht erst alle Zeilen geprüft werden müssen, ob ein Inhalt vorhanden ist oder nicht.
Bis später,
Karin

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread