Anzeige
Archiv - Navigation
1556to1560
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

msgBox bei Monatsende/-anfang

msgBox bei Monatsende/-anfang
11.05.2017 17:31:06
Chris
Wahrscheinlich eine Kleinigkeit...
An den ersten 2 Tagen im Monat + den letzten 2 Tagen im Monat soll Excel beim Öffnen der Datei eine msg "Denke an..." ausgeben.
Für Hilfe dankbar.
Gruß, Chris

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: msgBox bei Monatsende/-anfang
11.05.2017 17:38:39
Michael
Hallo!
zB:
Private Sub Workbook_Open()
If Day(Date) = 1 Or Day(Date) = 2 Or _
Date = WorksheetFunction.EoMonth(Date, 0) Or _
Date = WorksheetFunction.EoMonth(Date, 0) - 1 Then
MsgBox "Bitte denke an... "
End If
End Sub
Ins Code-Modul der Arbeitsmappe.
LG
Michael
AW: msgBox bei Monatsende/-anfang
11.05.2017 17:40:35
Hajo_Zi
Hallo Chris,
Option Explicit
Private Sub Workbook_Open()
If Day(Date)  Day(Application.EoMonth(Date, 0)) - 2 Then
MsgBox 1
End If
End Sub


AW: msgBox bei Monatsende/-anfang
11.05.2017 17:55:23
Chris
Super, Vielen Dank!!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige