ich habe eine Tabelle, welche mal länger/kürzer bzw. breiter/schmaler sein kann. Die Tabelle beginnt immer z.B. in Zelle C4 und wird nach rechts und nach unten aufgebauen.
Gerne würde ich das entsprechende Diagramm (X-Y-Punkte) dazu per Knopfdruck (VBA) aktualisieren können.
In einem anderen Forum habe ich den folgenden Code gefunden:
Sub diagramm_datenbereich()
Dim chDiagramm As Chart
With Worksheets("Tabelle1")
Set chDiagramm = .ChartObjects("Diagramm 2").Chart
chDiagramm.SetSourceData Source:=Range(.Range(.Cells(5, 2), .Cells(30, .Cells(30, 7).End( _
xlToRight).Column)).Address & "," & .Range(.Cells(71, 7), .Cells(71, .Cells(71, 7).End( _
xlToRight).Column)).Address)
End With
Set chDiagramm = Nothing
End Sub
Das funktioniert auch ganz gut, insoweit dass die Breite des Diagramms automatisch angepasst wird. Leider bleibt bei der Aktualisierung nach unten der Datenbereich immer bei Zeile 30 hängen. Kann mir jemand auf die Sprünge helfen?
Vielen Dank und viele Grüße
Martin