Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.10.2025 05:06:02
Mahjong gratis: gioco di puzzle senza tempo
04.10.2025 05:04:16
Mahjong gratuito: gioco di puzzle senza tempo
03.10.2025 22:18:19
Dropdown
03.10.2025 20:19:48
Formatierung bei Zelländerung
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erinnerung

Forumthread: Erinnerung

Erinnerung
20.06.2005 11:49:11
schmendrich
Hallo,
ich habe eine Excel-Tabelle, die täglich bearbeitet wird.
Ist es möglich, daß an jedem Freitag eine Erinnerung (MsgBox) an den Bediener rausgegeben wird, sobald er die Datei schließen möchte?
Vielen Dank
schmendrich
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erinnerung
20.06.2005 11:53:48
Uduuh
Hallo,
in DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Weekday(Now) = 6 Then MsgBox "Erinnerung"
End Sub

Gruß aus'm Pott
Udo
AW: Erinnerung
20.06.2005 12:00:14
schmendrich
Hallo und vielen Dank,
leider habe ich im Streß noch etwas vergessen :-(
Gelingt eine solche Erinnerung auch, wenn der letzte Arbeitstag des Monats heran ist?
Sorry
Gruß
schmendrich
Anzeige
AW: Erinnerung
20.06.2005 12:09:40
Werner
Hallo schmendrich
If Month(Date) &lt Month(Date) + 1 Then MsgBox ("ja")
Gruss Werner
AW: Erinnerung
20.06.2005 14:19:07
Werner
Hallo schmendrich
Habe das ganze noch verbessert. Da Ihr wahrscheinlich Samstag und Sonntag nicht Arbeitet. Wird automatisch am letzten Arbeitstag im Monat die Meldung kommen.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Weekday(Now) = 6 Then MsgBox "Erinnerung am Wochenende"
If Month(Date) < Month(Date + 1) Then
If Weekday(Date + 1) = 7 And Month(Date) < Month(Date + 3) Then
Else
If Weekday(Date + 2) = 1 And Month(Date) < Month(Date + 2) Then
Else
If Month(Date) < Month(Date + 1) Then
MsgBox "Erinnerung am Monatsende"
End If
End If
End If
End If
End Sub

Gruss Werner
Anzeige
AW: Erinnerung
20.06.2005 14:58:06
schmendrich
Hallo Werner,
vielen Dank für Deine Hilfe. Konnte ich gut verwenden und an meine Bedürfnisse anpassen.
Sehr geil
mfg
schmendrich
Danke für die Rückmeldung OT:-)
20.06.2005 14:59:50
Werner
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige