Erinnerung
01.08.2006 15:16:44
Martin
ich brauche mal wieder eure Hilfe! Jeder Mitarbeiter meiner Firma muß bis zum 5. eines jeden Monates einen Zeitbogen ausfüllen und an eine bestimmte Person mailen. Mit Hilfe eines Makros werden sie errinert (sofern das Datum zw. den 1. und 4. des Monats leigt), dass sie den Bogen abschicken sollen. Sie werden ferner gefragt ob sie diese getan haben. Wenn Ja soll diese Meldung erst im nächsten Monat wieder auftauchen ansonsten werden sie immer wieder beim Neustart der Datei gefragt bis sie irgenwann mal ja klicken oder der 5. des Monats ist erreicht. Wer weiß wie man da vorgeht. Das Makro sie so aus:
Private Sub Workbook_Open()
On Error Resume Next
If Day(Now) >= 1 And Day(Now) < 4 Then
Text = "Heute ist " & Format(Sheets("Lebensalter").Range("A1"), "dddd") & ", der " & Format(Sheets("Lebensalter").Range("A1"), "dd. mmmm yyyy") & vbCrLf
Text = Text & "" & vbCrLf
Text = Text & "Ihr Arbeitszeitverteilerbogen muss bis zum 5. Tag des Monats bei Fr. H. eingegangen sein. " & vbCrLf
Text = Text & "" & vbCrLf
Text = Text & "Sie haben also noch " & Format(Sheets("Lebensalter").Range("H29")) & " " & Format(Sheets("Lebensalter").Range("H30")) & " um ihn weiterzuleiten" & vbCrLf
Text = Text & "" & vbCrLf
Text = Text & "Möchten Sie den Bogen jetzt abschicken?"
MsgBox Text, vbYesNo, vbQuestion, "Erinnerung"
If Antwort = vbYes Then
HierWeißIchNichtWeiter
End If
End Sub
End If
Ich weiß nicht wie ich Excel jetzt mitteilen soll, dass er die Meldung nicht mehr anzeigen soll wenn der Anwender einmal Ja geklickt hat (erst im nächsten Monat wieder)