Wie kann ich per Makro den Monatsletzten von einem best. Monat herausfinden?
Gruß,
Nadine.
Wie kann ich per Makro den Monatsletzten von einem best. Monat herausfinden?
Gruß,
Nadine.
Monatsletzter=dateserial(year(Datum),Month(datum)+1),1)-1
Gruss aus'm Pott
Udo
Sub test()
MsgBox DateSerial(2003, 3, 0)
End Sub
Ergibt den letzten Tag im Februar 2003.
Also immer Folgemonat,0
Gruß Boris
das klappt über folgende Funktion:
Function LetzterTag(inputdate As Date) As Date
LetzterTag = DateSerial(Year(inputdate), Month(inputdate) + 1, 0)
End Function
Sub LetzterTagImMonat()
s = LetzterTag(Worksheets("Tabelle1").Range("A1"))
MsgBox s
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de