Anzeige
Archiv - Navigation
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sub aufrufen nach Monatslänge

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
Anzeige
Sorry, Doppelt
29.10.2009 20:34:00
Stefanglander
.
wenn 2 dasselbe tun,muss es nich richtig sein :-)
29.10.2009 20:44:09
Oberschlumpf
AW: Sub aufrufen nach Monatslänge
29.10.2009 20: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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige