Forums Neueste Beiträge
 

Application.Month MonatsEnde

14/04/2010 - 10:31 von Ludwig | Report spam
Hallo,
ich möchte gerne das MonatsEnde aus dem Datum der Zelle "A5"
innerhalb einer
Prozedur herausfiltern.
Mit einer Excelformel ist das so möglich: =Monatsende(A5;0)
Zeichne ich diese Excelformel auf, so wird mir mit dem Makrorecorder
ein Code
angezeigt, der nicht lauffàhig ist.
Eigentlich brauche ich ja das Ergebnis als serielle Zahl, daß heißt
aus dem
Datumwert vom 1.2.2010 = 40210 wird als Monatsende das Datum 28.2.2010
= 40237

Leider ist es mir bisher weder gelunden mit VBA eine Formel
=Monatsende(A5;0)
in eine Zelle zu schreiben noch konnte ich das irgendwie als
Application mit
VBA lösen.

Gibt es in der VBA Version auf english kein Monatsende ?

Wer kann mir dazu bitte eine Hilfestellung geben.

Mit freundlichen Grüßen

Ludwig
 

Lesen sie die antworten

#1 Peter Schleif
14/04/2010 - 10:41 | Warnen spam
Ludwig schrieb am 14.Apr.2010 10:31 Uhr:

ich möchte gerne das MonatsEnde aus dem Datum der Zelle "A5"
innerhalb einer Prozedur herausfiltern.



=MonatsendeVBA(A5)

Function MonatsendeVBA(ByVal d As Date) As Long
MonatsendeVBA = DateSerial(Year(d),Month(d)+1,Day(d)) - 1
End Function


Peter

Ähnliche fragen