Thema: Keine doppelten Werte und nur Werte mit 10 Zeichen akzeptieren

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

Beiträge aus dem Excel-Forum zu den Themen Feature und Gültigkeit