Wechsel zwischen KW 53 und 1
23.01.2004 15:54:33
Oliver
Private Sub txtDate_Change()
'Die KW wird vom eingegebenen Datum berechnet
On Error Resume Next
txtKW = DatePart("ww", txtDate)
If txtDate = "" Then txtKW = ""
End Sub