Gruppe
Feature
Problem
Die Werte in Spalte A dürfen sich nicht wiederholen und müssen 10 Zeichen lang sein. Lösung über Menü DATEN / GÜLTIGKEIT / BENUTZERDEFINIERT
StandardModule: basMain
Function ISOWeek(dat As Date) As Integer
Dim dbl As Double
With WorksheetFunction
ISOWeek = Fix((dat - .WeekDay(dat, 2) - _
DateSerial(Year(dat + 4 - _
.WeekDay(dat, 2)), 1, -10)) / 7)
End With
End Function