Application.ScreenUpdating = False
ActiveSheet.Unprotect
Range("K5:IV9").Select
Selection.ClearContents
Range("K1:K4").Select
Selection.Copy
Range("K5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("L1:L4").Select
Application.CutCopyMode = False
Selection.Copy
Range("L5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("M1:M4").Select
Application.CutCopyMode = False
Selection.Copy
Range("M5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
...
Vielen Dank für Eure Hilfe!
Gregor