ich kämpfe hier mit einem Range und komm nicht weiter:
Dim wsSensor As Worksheet
Dim dRange as Range
lastRow = 50 ' wird anderswo berechnet...
Set wsSensor = ActiveWorkbook.Worksheets("sensor")
Set dRange = wsSensor.Range(wsSensor.Cells(2, 2), wsSensor.Cells(lastRow, 2))
With ChartObjects(1).Chart
.SetSourceDataSource:=Sheets("sensor").Range(dRange)
End With
Das SetSourceData schlägt fehl mit "Anwendungs oder Objektdefinierter Fehler".
Kann mir jemand helfen?
Vielen Dank
Karsten