Negative Uhrzeit über Inputbox eingeben
19.02.2008 10:26:59
Melanie
ich habe folgendes Problem. Ich möchte über eine Inputbox den aktuellen Stundendsaldo der Stemnpeluhr eingeben können und dann spuckt er mir die tatsächlichen Überstunden aus.
Der Grund hierfür ist, dass morgens beim Anstempeln der Tagessaldo von acht Stunden noch nicht erbracht wurde und deshalb negativ angerechnet wird.
Das ganze habe ich mit dem Makro unten versucht. Ich kann hier aber keine negativen Stunden eintragen. Wie kann ich das lösen?
Für eure Hilfe im Voraus besten Dank!
Grüße, Melanie
Sub Ueberstunden2()
Dim Ueberzeit As Date
Dim Stundensaldo As Date
Dim Arbeitszeit As Date
Arbeitszeit = "8:00"
Stundensaldo = Application.InputBox("Angezeigte Zeit der Stempeluhr eintragen:", "Stundensaldo") _
If Stundensaldo > 0 Then
Ueberzeit = Arbeitszeit + Stundensaldo
Else
Ueberzeit = Arbeitszeit - Stundensaldo
End If
If Ueberzeit > 0 Then
MsgBox "Die aktuelle Überzeit beträgt: + " & Ueberzeit, vbOKOnly, "Überzeit"
Else
MsgBox "Die aktuelle Überzeit beträgt: - " & Ueberzeit, vbOKOnly, "Überzeit"
End If
End Sub