Private
Sub
Workbook_Open()
Dim
wks
As
Worksheet
Dim
letztezeilek
As
Long
Dim
i
As
Integer
Dim
speicher
As
String
Set
wks = ThisWorkbook.Worksheets(
"Aktualität bwb.de"
)
With
wks
letztezeilek = Range(
"K4"
).
End
(xlDown).Row
For
i = 4
To
letztezeilek
If
Cells(i, 11).Value <
Date
Then
speicher = Cells(i, 2).Value
Else
End
If
Next
i
If
speicher <> Leer
Then
MsgBox speicher, vbInformationvbokonly,
"Es müssen Seiten auf Aktualität geprüft werden!"
Else
End
If
End
With
End
Sub