Range aus anderem Arbeitsblatt
18.05.2018 09:12:01
Dominik
ich habe eine Arbeitsblatt auf welchem 3 Diagramme zu finden sind.
Hierbei ist das eine so aufgebaut, es möglichst dynamisch auf eine Tabelle in einem anderen Arbeitsblatt referenzieren soll. Leider bekomme ich hier immer den Fehler 438 oder 1007 je nach Variante.
Die unten dargestellte Variante erzeugt Fehler 1007.
Schreibt man die Range wie in Zeile 4 an die Stelle wo .rng steht entsteht Fehler 438.
With Worksheets("ScatterPlot").ListObjects("Scatter")
numcols = .ListColumns.Count
numrows = .ListRows.Count
Set rng = Range(Cells(2, 1), Cells(2 + numrows - 1, 1 + numcols - 1))
End With
With ActiveSheet.ChartObjects(3).Chart
.SetSourceData Source:=Worksheets("ScatterPlot").rng
For DatReihe = 1 To .SeriesCollection.Count
With .SeriesCollection(DatReihe)
For PointNr = 1 To .Points.Count
With .Points(PointNr)
.MarkerBackgroundColorIndex = 3
.MarkerForegroundColorIndex = 3
.MarkerStyle = xlCircle
.MarkerSize = 5
End With
Next PointNr
End With
Next DatReihe
End With
Über eine kurze Hilfe würde ich mich freuen.
Gruß
Dominik