Beliebiges Tabellenende
09.07.2020 10:41:14
Niklas
ich möchte, dass ich das Ende vom Definitionsbereich meiner Tabelle, die Grundlage für ein Diagramm ist, per Inputbox darstellen kann.
Wieso funktioniert der folgende Befehl nicht?
Sub BeliebigeZeile()
' BeliebigeZeile
Dim Eingabe As Integer
Eingabe = InputBox("Tragen die Zeilenanzahl der Tabelle ein:", Tabellenl?nge, "0")
ActiveSheet.ChartObjects("Diagramm 6").Activate
ActiveChart.FullSeriesCollection(1).Values = "=Diagramm!$C$2:$C$Eingabe"
ActiveChart.FullSeriesCollection(2).Values = "=Diagramm!$D$2:$D$Eingabe"
ActiveChart.FullSeriesCollection(2).XValues = "=Diagramm!$A$2:$A$Eingabe"
End Sub
Anzeige