Ich möchte ein Excel diagramm projezieren wärend der Projektion werden immer wieder daten in der Excel tabelle geändert, das Diagramm sollte dann immer automatisch aktualisiert werden. Kenn jemand hier einen guten ansatz?
Carlina
Public Sub dQu_Zeilen()
Dim s As Byte, dQu, a$, ls As Byte
With Sheets("Dia 1")
ls = .Cells(12, Columns.Count).End(xlToLeft).Column
For s = 2 To ls
Set dQu = .Range(.Cells(12, 2), .Cells(12, s + 2))
.ChartObjects(1).Chart _
.SetSourceData Source:=dQu, PlotBy:=xlRows
DoEvents
a = MsgBox("Fortsetzen ?", vbYesNo, "Säulenaufbau")
If a = vbNo Then Exit For
s = s + 2
Next
End With
End Sub