Office: Letzten Tag des vergangenen Monats zurückgeben

Hallo Profis,

folgendes Problem:
Ich bräuchte ein Makro welches den jeweils letzten Tag des vergangenen Monats zurückgibt.

Also: Wenn heute der 26.02.2008 ist muss das Ergebnis der 31.01.2008 sein. Oder wenn heute schon der 04.03.2008 wäre sollte das Ergebnis der 29.02.2008 sein. Noch ein Beispiel: Aktuelles Datum: 02.01.2008 - Ergebnisdatum: 31.12.2007

Ich habe versucht das Problem über eine Formel in der Zelle (=MONATSENDE) zu lösen - funktioniert auch - jedoch aktualisiert sich die Zelle bei Monatswechsel nicht automatisch beim Öffnen der Arbeitsmappe.

Also wenn jemand über diesen Weg eine Lösung weiss wäre ich auch dafür dankbar. Aber ein kleines, unkompliziertes Makro wäre sicher eleganter.

Vielen Dank im Voraus.

Gruß
Tobias

:)

 

Hallo Tobias!

Erst den ersten Tag des aktuellen Monats "berechnen" und davon einen Tag subtrahieren!

Code:

Gruüße
rastrans

 

Hallo rastrans,

vielen Dank für deine schnelle Antwort. Das ist genau das was ich gesucht habe.

Du hast mir sehr geholfen...

Grüße
Tobias

 

hiho
einen hätte ich auch noch als alternative

Sub Monatsende()
Lastday = DateSerial(Year(Now), Month(Now), 0)
End Sub

 

Hey...

das ist ja noch kürzer, Super!!!
Danke!!!

Gruß
Tobias

 

Moin, Tobias,

und das mit der Formel soll nicht klappen?
Tabelle1

	A	B
6	15.01.2008	31.12.2007

Zelle	Formel
B6	=DATUM(JAHR(A6);MONAT(A6);0)