Nochmals MsgBox mit Datum
Heinz
Ein heutiger Beitrag über eine Super MsgBox hat mich auf den Plan gebracht.
Habe das Makro von Josef "Danke" in meines eingebaut.
Es erscheint wenn 12 Monate vergangen sind. Das Datum steht in B101 (Ist Eintrittsdatum einer Person.)
Ist es möglich die Datendifferenz zwischen B101 und G1 (Datum der Stundenliste) in der MsgBox anzuzeigen.
Eventuell auch ohne "Okay Button.
Beispiel in B101 (Eintrittsdatum) steht 10.01.2005 In G1(Datum der Stundenliste) steht 01.01.2010
Könnte mir bitte dazu jemand helfen ?
Gruß
Heinz
intMSG = objWSH.Popup("Es freut uns Sie nun " 5 Jahre " bei uns im Team zu haben!" & Space(5), _
bytZeit, "gebe bekannt...")
Sub Urlaub_berechnen()
Dim aktdatum, eintrittsdatum As Date
aktdatum = Range("G1")
eintrittsdatum = Range("B101")
If Month(aktdatum) = Month(eintrittsdatum) Then
Const bytZeit As Byte = 5
Dim objWSH As Object, intMSG As Integer
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("Es freut uns Sie nun " & bytZeit & " bei uns im Team zu haben!" & _
Space(5), _
bytZeit, "gebe bekannt...")
Set objWSH = Nothing
If Year(aktdatum) >= (Year(eintrittsdatum) + 1) Then
Range("O40") = Range("O40") + Range("B102")
End If
End If
End Sub