Office: Erster und letzter Tag im jeweiligen Monat

Hallo zusammen,

ich bräuchte wieder mal Eure Hilfe.
Wie kann ich in VBA realisieren, dass, nachdem ich in einem Kombifeld einen Monat ausgewählt habe, zwei Textfelder gefüllt werden und zwar das eine mit dem ersten des ausgewählten Monats & aktuelles Jahr und in dem anderen soll dann der letzte des ausgewählten Monats & aktuelles Jahr erscheinen.
Gibts da schon irgendwelche fertigen Funktionen, oder muss ich da einen fetten Switch schreiben? Eine elegantere Lösung wäre mir aber lieber, falls jemand was auf Lager haben sollte.
Ich brauche das für ein Abrechnungsformular, das jeweils von Monatsanfang bis -ende berechnet. Und die Werte übergebe ich bis jetzt per Formular...
Ich hätt mir halt dann vorgestellt, das man nur den Monat im Kombifeld wählt und dass die Berechnung dann starten kann.

Vielen Dank schon mal.....
mfg
phil

:)

 

Monat und Jahr ausgewählt.
Monatserster:
"01."&Monat_zweistellig&"."&Jahr

Monatsletzter:
CDate("01."&Monat_zweistellig+1&"."&Jahr)-1

 

Siehe FAQ 2.8 - Lin in meiner Fusszeile!

Mfg, Michael

 

Hallo,

man den Monatsersten auch folgendermaßen ermitteln:

[Datum]-(Tag([Datum]-1))

Grüße!

 

Man muss wie folgt schreiben:

Wenn(Tag([Datum])=1;[Datum];[Datum]-(Tag([Datum]-1)))

Sonst wird jeder echte 01. zum ersten des Vormonats.

Sorry!

Grüße!