laufzeitfehler '1004' die methode 'range' für das objekt '_application' ist fehlgeschlagen
Bei folgendem code
Sub Makro1()
'
' Makro1 Makro
'
Dim X_Werte() As Variant, Y_Werte() As Long
Dim I As Variant, Zelle As Range
Dim objChart As Chart, objReihe As Series
I = 0
For Each Zelle In Application.Range("Tabelle6").Cells
I = I + 1
X_Werte(I) = Zelle.Value
Next
I = 0
For Each Zelle In Application.Range("Bereich_Y").Cells
I = I + 1
Y_Werte(I) = Zelle.Value
Next
'Diagramm anlegen
Application.Goto Reference:="Bereich_X"
ActiveWorkbook.Charts.Add
Set objChart = ActiveSheet
With objChart
.ChartType = xlXYScatterLines 'X-Y-Punktdiagram
Set objReihe = .SeriesCollection(1)
With objReihe
.Name = "Test"
.XValues = X_Werte
.Values = Y_Werte
End With
End With
'
End Sub
|