Wenn Monatsende in VBA

[dertommy]

Hallo!

Ich habe folgende Formel, welche ich gerne in VBA abgebildet haben will:

=wenn(MONATSENDE(HEUTE();0)-HEUTE()=0

Leider finde ich nirgendswo den VBA Code für Monatsende.

Ich hoffe, dass mir jemand helfen kann.

[BoskoBiati]

Hallo,

da plädiere ich eher für das:

Code:

=Wenn(Monat(heute)<>Monat(heute()+1)

oder so:

https://www.ms-office-forum.net/forum/sh...p?p=561745

Google ist sehr hilfreich bei solchen Fragen!

[dertommy]

Danke sehr, ich habe es nun so gemacht:

Code:

Dim Tag
Dim Monat
Dim Jahr
Dim Monatsletzter
Dim aktuellerTag
Tag = Day(Now)
Monat = Month(Now)
Jahr = Year(Now)
Monatsletzter = Day(DateSerial(Jahr, Monat + 1, 0))
aktuellerTag = Day(Date)

If (Monatsletzter - aktuellerTag) = 0 Then

[BoskoBiati]

Hi,

eigentlich sollte das reichen:

Code:

Dim loMletzt As Long
Dim loTag As Long
loTag = Date + 29
loMletzt = loTag - Day(loTag)

[Ego]

Hallo,

wenn heute Monatsende ist. istmorgen der erste.

[dertommy]

Hallo Ego!

Was willst du jetzt mit deiner Feststellung aussagen? Ist irgendein Code falsch?

[Kuwer]

Hallo,

nicht falsch, aber ein ganz klein wenig umständlich.

Code:

Sub aaa()
  If Day(Date + 1) = 1 Then
    MsgBox "Heute ist Monatsletzter."
  End If
End Sub

Gruß, Uwe

[Ego]

Hallo d...,

Wenn heute Monatsende ist, ist morgen der erste.

ist ein wenig kürzer als der Vorschlag, den ich von Edgars Vorschlägen verstanden habe (bzw. akzeptiere):

Wenn heute Monatsende ist, ist morgen ein anderer Monat.

[snb]

Code:

Sub M_snb()
  MsgBox DateSerial(Year(Date), Month(Date) + 1, 0)
End Sub