Msgbox bei Datumablauf
Stef
ich habe folgenden Code der schon ideal funzt
Private Sub Workbook_Open()
Dim rngZelle As Range
Dim wks As Worksheet
Set wks = ThisWorkbook.Worksheets("Personal")
For Each rngZelle In wks.Range("K3:K200")
If CDate(rngZelle.Value) = Date Then
MsgBox "Bei " & rngZelle.Offset(, -8).Value & " läuft der Arbeitsvertrag heute aus ! _
_
", vbInformation, "Arbeitsvertrag!"
End If
Next rngZelle
Set wks = Nothing
End Sub
nun bräuchte ich das selbe, nur er sollte mich schon 5 tage vorher darauf aufmerksam machen.
LG
Stef
Anzeige