Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1020to1024
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

Erinnerungsfunktion im Excel

Erinnerungsfunktion im Excel
30.10.2008 13:00:00
Rupert
Hallo Forum,
Ich habe hier eine Datei wo das datum auf fälligkeit abgeprüft werden soll und mittels einer MsgBox angezeigt wird, nach bestätigung mit OK soll es anders gefärbt werden, soweit hab ich mir den Script auch zusammengebastelt, jetzt würde ich jedoch gerne noch einbauen, das wenn der Termin innerhalb der nächsten 3 Tagen fällig ist, das dann ebenfalls eine Message-Box kommt, da komme ich jedoch leider nicht weiter. Anbei mein gebastelter Script. Der zweite if teil soll eben zu dem umbebaut werden, das ich sehe was in den nächsten 3 tagen fällig wird.
Option Explicit

Private Sub workbook_open()
Dim lZeile, i
Worksheets("Mitarbeiter").Select
'Columns(1).Interior.ColorIndex = xlNone
lZeile = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lZeile
If Month(Cells(i, 6)) = Month(Date) And Day(Cells(i, 6)) = Day(Now) Then
MsgBox Cells(i, 1) & ", " & Cells(i, 2) & Chr(13) & "ist heute fällig"
Cells(i, 1).Interior.ColorIndex = 38
End If
If Month(Cells(i, 6)) = Month(Date) And Day(Cells(i, 6)) = Day(Now) And DateAdd("d", 3, Now())  _
Then
MsgBox Cells(i, 1) & ", " & Cells(i, 2) & Chr(13) & "ist in 3 tagen fällig"
Cells(i, 1).Interior.ColorIndex = 42
End If
Next i
End Sub


Danke schon mal für die Hilfe
Rupert

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erinnerungsfunktion im Excel
30.10.2008 13:08:01
Rudi
Hallo,

if cells(i,6)


Gruß
Rudi

Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige