Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.06.2024 19:56:24
17.06.2024 19:39:46
Anzeige
Archiv - Navigation
780to784
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
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

MsgBox nur 1 mal am Tag anzeigen

MsgBox nur 1 mal am Tag anzeigen
17.07.2006 20:41:38
Jürgen
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

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

Betreff
Datum
Anwender
Anzeige
AW: MsgBox nur 1 mal am Tag anzeigen
17.07.2006 21:03:38
Peter
Hallo Jürgen,
du musst deine Log-Datei eben vorher durchsuchen, ob das Datum bereis gespeichert ist.
Aber ein anderer Punkt:
If Weekday(Date) = 2 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!"
erspart dir die Abfrage auf alle Montage einzeln vorzunehmen.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: MsgBox nur 1 mal am Tag anzeigen
17.07.2006 21:11:38
Jürgen
Hallo Peter!
vielen Dank, so ist es wesentlich einfacher!
Aber ich komme nicht dahinter wie ich das machen kann mit dem Auslesen des Protokolls, bzw. wie ich es einfach machen kann, dass die Meldung lediglich 1mal angezeigt wird.
Weißt du einen Rat?
Gruß Jürgen
Anzeige
AW: MsgBox nur 1 mal am Tag anzeigen
17.07.2006 21:50:31
Matthias
Hallo Jürgen,
versuch es mit dieser Funktion:

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

Gruß Matthias
Anzeige
AW: MsgBox nur 1 mal am Tag anzeigen
17.07.2006 22:02:12
Peter
Hallo Jürgen,
z. B. so:
https://www.herber.de/bbs/user/35152.xls
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: MsgBox nur 1 mal am Tag anzeigen
17.07.2006 22:04:27
Daniel
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
Anzeige
AW: MsgBox nur 1 mal am Tag anzeigen
17.07.2006 22:36:06
Jürgen
Vielen Dank für eure beiden Antworten.
Habe allerdings immer noch das Problem.
Da ich unter workbook open so viel stehen hab, geht es auch bei aktivierung einer tabelle.
Aber was passt hier nicht?

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

Anzeige
AW: MsgBox nur 1 mal am Tag anzeigen
17.07.2006 23:05:24
Daniel
Hallo,
vielleicht sollte es heißen Sheets("Tabelle179")?
oder du mußt Tabelle179 als Stringvariable deklarieren und als String den entsprechenden Namen des Sheets zuweisen.
btw. sollte das Mitloggen in der Txt-Datei nicht besser innerhalb des If-Blocks stehen?
sonst wird jedes mal, wenn das Sheet aktiviert wird ein Log ausgeführt.#
Gruß, Daniel
AW: MsgBox nur 1 mal am Tag anzeigen
18.07.2006 09:10:53
Peter
Moin Jürgen,
nur eine Frage, bzw. ein Hinweis:
Gibt es auch Montage, an denen Deine Erinnerung erst am Dienstag wirksam werden muss - Ostermontag, Pfingstmontag usw?
Welche Feiertage müssen in 'deinem' Bundesland noch berücksichtigt werden - vielleicht auch Rosenmontag?
Viele Grüße Peter
Anzeige
AW: MsgBox nur 1 mal am Tag anzeigen
18.07.2006 14:25:11
Jürgen
Sorry dass ich erst jetzt zurückmaile, aber früher ging es nicht.
Nein, es gibt keine anderen Montage die berücksichtigt werden (muss ja nicht unnötigt kompliziert gemacht werden!)
Leider funktioniert bislang keine Lösung perfekt. Irgendwo kommt immer ein Fehler..
Gibt es noch eine andere Möglichkeit?
AW: MsgBox nur 1 mal am Tag anzeigen
18.07.2006 14:36:36
Matthias
Hallo Jürgen,
Leider funktioniert bislang keine Lösung perfekt. Irgendwo kommt immer ein Fehler..
Sehr hilfreiche Fehlerbeschreibung ... Meinst du, jemand fängt jetzt nochmal von vorne an, auf die Gefahr hin, dass die Rückmeldung wieder nur lautet:
"Geht nicht, weiß jemand was besseres?"
Gruß Matthias
Anzeige
AW: MsgBox nur 1 mal am Tag anzeigen
18.07.2006 14:45:13
Jürgen
Stimmt, das war etwas ungeschickt formuliert.
Es kommt die Meldung: Kompilierungsfehler in verborgenem Modul: Diese Arbeitsmappe
Aber zu "Geht nicht, weiß jemand was besseres?":
naja, vielleicht weiß wirklich jemand was besseres, wie man eben den Fehler umgehen kann, denn ich weiß es eben nicht.
Gruß Jürgen
AW: MsgBox nur 1 mal am Tag anzeigen
18.07.2006 14:45:35
Peter
Hallo Jürgen,
ich habe die Feiertage, die auf einen Montag fallen berücksichtigt (siehe Tabellenblatt Feiertage) und gehe davon aus, dass dann deine Mappe Dienstag aufgerufen wird.
Schau mal (zum Test ist das heutige Datum in der Feiertagsmappe enthalten und muss gelöscht werden) die beigefügte Mappe an.
https://www.herber.de/bbs/user/35179.xls
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: MsgBox nur 1 mal am Tag anzeigen
18.07.2006 15:23:56
Jürgen
Hallo Peter!
Ich verstehe einfach nicht, wieso mein Excel, sowohl auf meinem PC (Excel 2003) als auch auf meinem Notebook (Office XP) abstürzt?... jeodhc nur beim öffner der Datei 35179.xls
Gruß Jürgen
AW: MsgBox nur 1 mal am Tag anzeigen
18.07.2006 16:03:01
Peter
Hallo Jürgen,
ich schicke die Mappe noch einmal:
https://www.herber.de/bbs/user/35185.xls
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: MsgBox nur 1 mal am Tag anzeigen
18.07.2006 17:16:02
Peter
Hallo Jürgen,
auch wenn die letzte Version bei mir ladbar ist, hier noch eine kleine Korrektur:
https://www.herber.de/bbs/user/35188.xls
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige