|
Moinsen,
Ich habe in einer Personalplanungstabelle eine Führerscheinablaufüberwachung eingerichtet.
In den Zellen D3:T3 stehen die Namen
in den Zellen D7:T7 stehen die berechneten Tage bis zum Ablauf der Gültigkeit.
Wenn die Tage aus D7:T7 unter 100 Tage fällt, soll eine MsgBox aufgehen und dies melden. " Führerschein von "Zelle z.B.D3" läuft in "z.B. D7" Tagen ab"
Ich habe folgenden Code, der auch funktioniert:
With Worksheet("Planung")
If AktiveSheet.Range ("D7").value < 0 then
MsgBox " Der Führerschein von " & " " & Range(" D3") .value & " " & ist seit " &" Range("D7")*-1 . value &" " & "Tagen abgelaufen.", vbInformation, "Führerscheinkontrolle"
ElseIf AktivSheet.Range ("D7").value < 100 then
MsgBox " Der Führerschein von " & " " & Range ("D3) . value & "läuft in" & " " & Range ("D7") . value & " " & Tagen ab. " vbinformation, Führerscheinkontrolle
End if
Soweit, so gut... aber.
Muss ich jetzt für jeden Mitarbeiter in der Liste eigene Boxen bauen, und müsste dann auch mehrmals bestätigen, wenn mehrere Füherscheine ablaufen oder kann ich alle Mitarbeiter in eienr MsgBox zusammenfassen?
Ich hoffe, dass meine Frage einigermaßen verständlich ist.
Vielen Dank fü die Mühe und viele Grüße von
Kricki
|