Makro ändern
28.01.2004 15:01:01
Jürgen
habe untenstehendes Makro für Terminerinnerung jeweils 3Wochen (21Tage) vorher.
das Problem ist das es nur am 21 Tag vor Ablauf des Termins erinnert.
Ich bräuchte dieses jedoch ab 3 Wochen vorher, täglich das heißt wenn ich 2 Wochen vorher die Datei öffne das mir dann z.b gesagt wird jetzt noch 14 Tage bis Termin. Und wenn Termin überfällig ist sollte mir angezeigt werden z.b 5 Tage über der Zeit.
Weiss jemand wie dieses zu bewerkstelligen ist.
Gruss und dank im vorraus
Jürgen
Option Explicit
Sub Termin()
Dim nam As String
Dim Datum1 As Date, z
z = 1
Datum1 = Format(Now() + 21, "dd.mm.yy")
Do While Cells(z, 1) <> ""
If Cells(z, 2) = Datum1 Then _
MsgBox "Achtung ! Es steht ein Termin mit Herr/Frau " & (Cells(z, 1)) & " am " & Cells(z, 2)
z = z + 1
Loop
End Sub