AW: Steh am Schlauch.........
07.03.2019 19:23:35
STeve
Hallo Nepumuk
Deine Lösung wirft bei mir den 31.1.2019 aus.....aber Danke für deine Unterstützung.
Hoffe jetzt mit den ua. Tests - kapiere ich endlich wie das geht:
Sub letzterTag()
ComboJahr = "2019"
ComboMonat = "April"
MsgBox DateSerial(CLng(ComboJahr), Month("1." & ComboMonat), 0) '31.3.2019
MsgBox DateSerial(CLng(ComboJahr), Month("1." & ComboMonat), 1 - 1) '31.3.2019
MsgBox DateSerial(CLng(ComboJahr), Month("1." & ComboMonat), 0 - 1) '30.3.2019
MsgBox DateSerial(CLng(ComboJahr), Month("1." & ComboMonat), 1) '1.4.2019
MsgBox DateSerial(CLng(ComboJahr), Month("1." & ComboMonat), 2) '2.4.2019
End Sub
Wünsche euch noch einen schönen Abend.
mfg STeve