Hallo, ich würde gern in folgendem Programm beim Kopieren nicht nur die Werte der Zellen, sondern auch deren Formatierung (also speziell zb die Hintergrundfarbe) übernehmen. Habe schon einiges versucht wie zb

ActiveSheet.PasteSpecial x1PasteAll   bzw. x1PasteFormats ...

nichts funktioniert richtig.

Sub Wochenbestellung()

Dim KW, k As Integer

Workbooks.Open ("C:\Users\MS\Desktop\Projekt_B\A1a.xls")
'Sheets("Bestellungen").Activate

Range("Kunden").Select
Selection.Copy
ActiveWorkbook.Close

Sheets("Bestell").Select
Range("A4").Select
ActiveSheet.PasteSpecial

Würde mich über jede Hilfe freuen! Vielen Dank!!!

Melanie