Hallo Leute
Habe den unteren Code hier im Forum erhalten,funkt.Spitze,für Tab.Blatt "Jänner"
Jetzt habe ich das Tab.Blatt Kopiert und in "Februar umbenannt.
Bei "Jänner" werden die Zellen D6:H36 kopiert.
Bei "Februar" sollten die Zellen L6:P36 kopirt werden.
Was würde bitte geändert gehören.Damit es stimmt.
Habe von dem Code leider überhaubst keine Ahnung.
Danke & Gruß Heinz
x = 7
zrow = 30
jancol = 4
For jancol = 4 To 8
Sheets("Februar").Range(Sheets("Februar").Cells(x, 4), Sheets("Februar").Cells(x + zrow, 4)) = _
Sheets("Schichtplan").Range(Sheets("Schichtplan").Cells(6, jancol), Sheets("Schichtplan").Cells(36, jancol)).Value
x = x + 44