MsgBox nur 1 mal am Tag anzeigen

Hallo zusammen!
Ich mal wieder etwas herumgespielt und bin eigentlich auch immer recht weit gekommen, jedoch hier weiß ich echt nicht weiter.
Und zwar möchte ich, dass jeden Montag eine Erinnerungsmeldung, ganz einfach per msgbox angezeigt wird.
Leider schaffe ich es nur so, dass es bei jedem Öffnen der Datei angezeigt wird, aber einmal reicht.
Ich hoffe Ihr könnt mir herlfen.
So sieht es bis jetzt aus:
Private Sub Workbook_Open()
If Date = 38714 Or Date = 38713 Or Date = 38718 Or Date = 38719 Or Date = 38749 Or Date = 38808 Or Date = 38810 Or Date = 38838 Or Date = 38869 Or Date = 38899 Or Date = 38930 Or Date = 38961 Or Date = 38991 Or Date = 38992 Or Date = 39022 Or Date = 39052 Then
MsgBox Chr(13) & " ! ! ! ! W I C H T I G ! ! ! !" & Chr(13) & "" & Chr(13) & "Bitte an die Wochenplanung denken.!" & Chr(13) & "" & Chr(13) & "Rückfragen wie immer an Wagner-ES@arcor.de" & Chr(13) & "" & Chr(13) & "Vielen Dank!"
Open "C:\windows\log.txt" For Append As #1
Print #1, Now & " " & Application.UserName & " Meldung 'Wochenplanung' angezeigt"
Close #1
Else
End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function DatumInListe(d As Date, log As String) 'd: Datum, welches gesucht werden soll 'log: Pfad der Logdatei, die Durchsucht werden soll Dim ff As Integer, z As String Dim dat As Date, Found As Boolean ff = FreeFile Found = False On Error Resume Next Open log For Input As #ff Do While Not EOF(ff) And Not Found Line Input #ff, z 'dat = Zeile bis zum ersten Leerzeichen dat = CDate(Split(z, " ")(0)) If d = dat Then Found = True Loop Close #ff DatumInListe = Found End Function

Hallo,
probiers mal mit diesem Code:


Private Sub Workbook_Open()
Dim rngMerker As Range
Set rngMerker = Sheets(1).Cells(1, 1)
If (Date - rngMerker.Value) > (Weekday(Date, vbMonday) - 1) Then
MsgBox ("Wochenplanung nicht vergessen")
rngMerker.Value = Date
ThisWorkbook.Save
End If
End Sub

Du brauchst bei Set rngMerker nur eine Zelle eintragen, in der das Datum der des letzten Öffnens unauffällig abgelegt werden kann.
Die Funktion ist so ausgelegt, daß beim ersten Öffen innerhalb einer Woche (unabhängig, an welchem Wochentag, Kollege könnte ja Montags mal frei haben oder es ist ein Feiertag) die Meldung gezeigt und das Datum in eine Zelle zurückgeschrieben wird.
Danach ist für den Rest der Woche Ruhe.
Das mitloggend der Anzeige in einer separaten Datei mußt du noch einfügen.
Nach dem Ändern des Merkers wird sofort gespeichert, somit merkt sich das Makro die Anzeige, auch wenn der Kollege die Datei ohne speichern wieder verlässt.
Gruß, Daniel

Sub Worksheet_Activate() Dim rngMerker As Range Set rngMerker = Sheets(Tabelle179).Cells(1, 1) If (Date - rngMerker.Value) > (Weekday(Date, vbMonday) - 1) Then MsgBox ("Wochenplanung nicht vergessen") rngMerker.Value = Date Else End If Open "C:\windows\log.txt" For Append As #1 Print #1, Now & " " & Application.UserName & " Tabellenblatt: '" & ActiveSheet.Name & "' angezeigt" Close #1 End Sub

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

MsgBox nur 1 mal am Tag anzeigen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread