Code erläutern
Karsten
diesen Code hat mir Hary geschrieben. Er beziet sich auf Datumeingaben im Textformat. Kann mir bitte jemand für was welche Zahlen zutreffen?
Danke.
Gruß
Karsten
Dim datD As Date, strMMTT As String, vntRet0 As Variant
Case 5
Target = Right("0" & Target, 5)
strMMTT = Right(Target, 2) & Left(Target, 2)
datD = DateSerial(Year(Date) - (strMMTT < Format(Date, "mmdd")), _
Right(Target, 2), Left(Target, 2))