Dim Palkt As Workbook ThisWorkbook.Worksheets("Palettenkonto").Range("A1:G" & lngLastG).Copy Destination:=Palkt.Range("A1")
Dim Palkt As Workbook
ThisWorkbook.Worksheets("Palettenkonto").Range("A1:G" & lngLastG).Copy Destination:=Palkt.Range("A1")
Ein Workbook hat keine Range-Property.