ich habe ein Problem: Ich hätte gerne, dass mein Diagramm automatisch bis zur letzten ausgefüllten Spalte die Werte aus der Tabelle als Wertebereich nimmt.
Mein Makro dazu funktioniert aber nicht und ich habe dazu leider nichts finden können.
Schonmal vielen Dank!
Mein Makro:
Sub Makro12 ()
IngLastColumn = ActiveSheet.Cells(5, ActiveSheet.Columns.Count).End(xlToLeft).Column
IngLastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
ActiveSheet.ChartObjects("Diagramm 3").Activate
ActiveChart.FullSeriesCollection(1).XValues = "abc!$C$5" & ":IngLastColumn" &"=abc!$5"
End Sub