Hallo Leute!
Ich versuche gerade in meinem Tabellenblatt 3 in der Spalte C die Kalenderwochen zu programmieren. Leider klappt es irgendwie nicht.
Das Datum steht in der Spalte B. (Ursprünglich sollte das Datum in C und die Kalenderwochen in B stehen, falls es auch möglich ist)
Das Datum wird mit dem SVERWEIS aus dem Tabellenblatt 1 geholt. Vllt klappt es deswegen nicht, das weiß ich leider nicht.
Habt ihr vllt irgendwelche vorschläge??
Danke!!
Viele Grüße
Dim z As Range
For Each z In t3.Range("B:B").Cells
If IsDate(z.value) = True Then
t3.Cells(z.Row, 2).value = WorksheetFunction.WeekNum(z.value, 2)
End If
Next z
|