Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Alle 5 Tage im monat msgbox | Herbers Excel-Forum


Betrifft: Alle 5 Tage im monat msgbox von: Sascha
Geschrieben am: 20.01.2012 16:08:45

Hallo liebe Experten,
Ich brauche wieder mal Eure Hilfe...

Ich suche einen Code, der mir alle 5 Tage im laufenden Monat, sowie am letzten des Monats eine msgbox anzeigt...

Also wenn der Monat 31 Tage hat, dann am 5. , 10., 15., 20., 25., und am 31.
Wenn der Monat aber nur 28 Tage hat: am 5. , 10., 15., 20., 25., und am 28. usw

Bei meinem Excel steht das Datum in Zelle H1

Ist das machbar?

Liebe Grüsse
Sascha

  

Betrifft: AW: Alle 5 Tage im monat msgbox von: ChrisL
Geschrieben am: 20.01.2012 16:24:51

Salut Sascha

Sub test()
Dim myDate As Date

myDate = Range("H1")

Select Case Day(myDate)
Case 5, 10, 15, 20, 25: MsgBox "Die Nachricht"
Case Else: If Month(myDate) <> Month(myDate + 1) Then MsgBox "Die Nachricht"
End Select
End Sub

cu
Chris


  

Betrifft: AW: Alle 5 Tage im monat msgbox von: Sascha
Geschrieben am: 20.01.2012 16:31:30

Suuuuper...

Vielen lieben Dank Chris,

und noch einen schönen Abend

Gruss Sascha


Beiträge aus den Excel-Beispielen zum Thema "Alle 5 Tage im monat msgbox"