Sub aufrufen nach Monatslänge

Forumthread: Sub aufrufen nach Monatslänge
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Sub aufrufen nach Monatslänge

Stefanglander

Guten Abend Forum,
in Zelle B3 steht ein Datum, immer der Erste eines Monats.
Nun möchte ich gerne, anhand dieses Datums eine Prozedur ausführen lassen.
Wenn der Monat 28 Tage hat dann Makro 1
bei 30 Tagen Makro 2 und bei 31 Tagen Makro 3.
Mag jemand helfen?
Gruss
Stefan

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sorry, Doppelt

Stefanglander
wenn 2 dasselbe tun,muss es nich richtig sein :-)

Oberschlumpf
AW: Sub aufrufen nach Monatslänge

Andre

Sorry, Doppelt

29.10.2009 21:34:00

Stefanglander

wenn 2 dasselbe tun,muss es nich richtig sein :-)

29.10.2009 21:44:09

Oberschlumpf

AW: Sub aufrufen nach Monatslänge

29.10.2009 21:54:22

Andre

Hallo Stefan,

Sub Stefan()
Dim d As String
d = Range("B3")
If IsDate(d) Then
If Day(DateSerial(Year(d), Month(d) + 1, 0)) = 28 Then
MsgBox ("Makro1")
End If
If Day(DateSerial(Year(d), Month(d) + 1, 0)) = 30 Then
MsgBox ("Makro2")
End If
If Day(DateSerial(Year(d), Month(d) + 1, 0)) = 31 Then
MsgBox ("Makro3")
End If
End If
End Sub

MFG Andre