ich würde gerne den Inhalt einer Zelle bis zur ersten leeren Spalte kopieren.
Die Anzahl der Spalten ändert sich. Als Code benutze ich
'Bis zur letzen gefüllten Spalte Zelle 1 mit dem Datum beschreiben
letztespalte = Sheets("Calculations").Cells(1, 150).End(xlToLeft).Column
Worksheets("Calculations").Cells(1, 17).Copy Destination:=Worksheets
"Calculations").Range(Cells(1, 18), Cells(1, letztespalte))
Leider bekomme ich einen Laufzeitfehler. Weiß jemand warum?