Sub
A_Copy_KW()
Dim
lRow
As
Long
, x
As
Long
Sheets(
"Tabelle1"
).Columns(
"A"
).Copy Sheets(
"Tabelle2"
).Cells(1, 1)
With
Sheets(
"Tabelle2"
)
lRow = .Cells.Find(
"*"
, .Cells(1), -4123, 2, 1, 2,
False
).Row
For
x = 1
To
lRow
If
.Cells(x, 1) <>
""
And
IsDate(.Cells(x, 1))
Then
.Cells(x, 2).Value = DatePart(
"ww"
, .Cells(x, 1).Value, vbMonday, vbFirstFourDays)
End
If
Next
x
End
With
End
Sub