kann mir vielleicht jemand sagen was man an folgenden zeilen ändern muß damit die nicht sichtbaren zellen unbeachtet bleiben?
Range(Cells(LastZeile - 2160, 17), Cells(LastZeile, 18)).Select
Set uh = .Range(Cells(LastZeile - 2160, 7), Cells(LastZeile, 7))
Set da = .Range(Cells(LastZeile - 2160, 6), Cells(LastZeile, 6))
ActiveChart.SetSourceData Source:=Sheets("Sensor 1").Range(Cells(LastZeile - 2160, 17), Cells(LastZeile, 18))
Danke