Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
624to628
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige