wie lasse ich mir das Datum aus einer bestimmten Zelle (B33) in (A13) als Kalenderwoche anzeigen?
Die Formel bzw. Funktion ist mir bekannt. Hätte das aber gerne über VBA gelöst.
Freue mich über eure Antworrten.
Sub test()
Dim zelle As Range
For Each zelle In Worksheets(1).Range("A:A").Cells
If IsDate(zelle.Value) = True Then
Worksheets(1).Cells(zelle.Row, 2).Value = WorksheetFunction.WeekNum(zelle.Value, 1) _
End If
Next zelle
End Sub
Sub KW()
[A13] = Application.WorksheetFunction.WeekNum([B33], 21)
End Sub