Hi liebe VBA-Gemeinde,
ich bin verzweifelt dabei den Diagrammbereich eines horizontalen Balkendiagramms mit einer Variablen festzulegen.
Diese Variable wird im Vorfeld vom Benutzer mit einer InputBox abgefragt und soll später die Anzahl der zu verarbeitenden Werte definieren.
Nun meine Frage: Wie kann ich in
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = "=Tabelle1!$B$1"
ActiveChart.FullSeriesCollection(1).Values = "=Tabelle1!$G$3:$G$10"
ActiveChart.FullSeriesCollection(1).XValues = "=Tabelle1!$A$3:$A$10"
meine VARIABLE X einbauen? Die Variable x soll anstelle der Zeile 10 im Ausdruck "=Tabelle1!$G$3:$G$10" stehen.
Bisher habe etwas in dieser Art versucht. Das Ergebnis ist leider enttäuschend.
Dim m As Integer
zeile = "3"
m = Application.InputBox("Anzahl der Proben", "Proben", 0, Type:=1)
x = m + 2
Range("A" & zeile & ":A" & x).Select
Range("A1").Select
ActiveSheet.Shapes.AddChart2(216, xlBarClustered).Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = "=Tabelle1!$B$1"
With ActiveChart.SeriesCollection(1)
.Values = Sheets(1).Range(Sheets(1).Cells(3, 7), Sheets(1).Cells(x, 7))
.XValues = Sheets(1).Range(Sheets(1).Cells(3, 1), Sheets(1).Cells(x, 1))
End With
Danke euch. |