Gültigkeitsprüfung per VBA
Marten
ich habe folgenden VBA-Code für die Umwandlung von Zahlen in Uhrzeit gefunden: Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim Zeit As Double If Not Intersect(Target, Range("A1:B10")) Is Nothing Then If Target.Text "" Then Zeit = Int((Target.Value) / 100) / 24 + (Target.Value / 100 - Int(Target.Value / 100)) / _ 14.4 Target.Value = Format(Zeit, "hh:mm") End If End If Application.EnableEvents = True End Sub
Der funktioniert soweit sehr gut.
Nun möchte ich diesen Code um eine Gültigkeitsprüfung erweitern, und zwar:
Bei der Eingabe in Zelle B1 (BIS-Zeit) soll die Zeit geprüft werden, ob diese größer ist als die in Zelle A1 (VON-Zeit) usw.
Mit der "normalen" Gültigkeitsprüfung (Zeit größer als) funktioniert dies nicht.
Hat jemand einen Vorschlag.
Wäre echt nett.
Danke.