Office: Dynamisches Diagramm

Hallo zusammen,

ich habe in mehreren Post gelesen wo die Probleme bei dynamischen Diagrammen liegen und mir auch eine Muster-Excel-Datei die "funktioniert" herunter geladen.

Ich habe allerdings das Problem das sich meine ergänzenden Daten nach unten fortsetzen und nicht nach rechts.
Damit habe ich ein Problem.

Das Diagramm soll sich automatisch aktualisieren wenn sich weitere Daten unten anfügen.

Kann mir da jemand auf die Sprünge helfen?

DANKE IM VORAUS!!!

 

Hi Benny,

in deinem Fall ist es ja so, dass sich nicht die Anzahl der Werte der Datenreihen erweitert, sondern es sollen neue Datenreihen ergänzt werden - und das geht nur per VBA. Kopiere den folgenden Code ins Codemodul des Tabellenblattes:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim loLetzte As Long
    loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
    If Target.Count = 1 Then
        If Target.Column = 1 And Target.Row > 1 And Target <> "" Then
            ActiveSheet.ChartObjects(1).Chart.SeriesCollection.NewSeries
            With ActiveSheet.ChartObjects(1).Chart
                With .SeriesCollection(.SeriesCollection.Count)
                    .Formula = "=SERIES(Benutzer!$A$" & loLetzte & ",Benutzer!$B$1:$M$1,Benutzer!$B$" & _
                        loLetzte & ":$M$" & loLetzte & "," & ActiveSheet.ChartObjects(1).Chart.SeriesCollection.Count & ")"
                    .Border.Weight = xlMedium
                    .MarkerStyle = xlNone
                End With
            End With
        End If
    End If
End Sub

Sobald in Spalte A ein neuer Name hinzugefügt wird, erscheint eine neue Datenreihe.

Bis später,
Karin

 

VIELEN VIELEN DANK!!!!

Es funktioniert!!!!