Option
Explicit
Sub
Schaltfläche1_Klicken()
Dim
loLetzte
As
Long
, i
As
Long
Application.ScreenUpdating =
False
With
Worksheets(
"Fertig"
)
For
i = 11
To
39
Select
Case
i
Case
11
To
13, 24
To
26, 37
To
39
loLetzte = .Cells(.Rows.Count, i).
End
(xlUp).Row
.Range(.Cells(1,
"ZZ"
), .Cells(loLetzte,
"ZZ"
)).FormulaR1C1 =
"=ISOWEEKNUM(RC"
& i &
")"
.Range(.Cells(1,
"ZZ"
), .Cells(loLetzte,
"ZZ"
)).Copy
.Cells(1, i).PasteSpecial Paste:=xlPasteValues
.Range(.Cells(1, i), .Cells(loLetzte, i)).NumberFormat =
"General"
.Columns(
"ZZ"
).ClearContents
Case
Else
End
Select
Next
i
End
With
Application.CutCopyMode =
False
End
Sub