AW: Automatische Nachricht bei bestimmtem Datum
19.05.2006 09:07:56
UweD
Hallo
Bei der Lösung von gestern muß die Datei NICHT geöffnet werden. Das macht Excel im Hintergrund.
Excel selbst mußt du aber schon starten, aber das kann irgendeine Datei sein.
Ansonst muß du dir Timer im Kalender setzen. (Du bist ja auch hier im ExcelForum)
Das mit den Tüvdaten geht aber auch so.
|
|
| A | B | 1 | Tüvtermin | Fahrzeug | 2 | 20.05.2006 | B-AB 001 | 3 | 02.06.2006 | HH-OB 123 | 4 | 18.06.2006 | S-OO 999 | |
|
in DieseArbeitsmappe:
Private Sub Workbook_Open()
On Error GoTo Fehler
Dim SP%, LR&, TB1, i&, Warn%, Tuev As Date, D%, KFZ$
Warn = 14 'Tage vorher warnen
Set TB1 = Sheets("Tabelle1")
SP = 1 'Spalte A Tüvdaten
LR = TB1.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For i = 2 To LR
Tuev = TB1.Cells(i, SP)
KFZ = TB1.Cells(i, SP + 1)
D = Tuev - Date
If D <= Warn Then
MsgBox "Fahrzeug: " & KFZ & " hat nur noch " & D & " Tage Tüv."
End If
Next
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
ende
End Sub
in Modul:
Sub ende()
Dim WsShell, intText As Integer
Set WsShell = CreateObject("WScript.Shell")
intText = WsShell.Popup("Datei wird in 2 sec automatisch geschlossen!!!" & vbLf _
& "Sonst Abbrechen!", 2, "Huhu ...", 1 + 48)
' Die 2 in der letzten Zeile gibt die Dauer der Öffnung an.
If intText <> 2 Then
Application.Quit
End If
End Sub
hier die kompl. Musterdatei:
https://www.herber.de/bbs/user/33772.xls
diese Datei in den Autostart-Ordner von Windows ziehen.
Wird dann automatisch geöffnet und die Daten geprüft. Danach wird sie auch wieder selbst geschlossen. (mit Notaus)
Gruß UweD
(Rückmeldung wäre schön)