Moin Leute
Nike hatte mir den script gegeben!
Sub loescher()
Dim wks As Worksheet
For i = 1 To 52
Set wks = Worksheets(i & ".KW")
With wks.Range( _
"D4,F4,H4,J4,L4,N4,N9,L9,J9,H9,F9,D9,D14,F14,H14,J14,L14,N14,N19,L19,J19,H19,F19,D19" _
).Validation
.Delete
.Add Type:=xlValidateLis...