Excel VBA Comboboxen miteinander verrechnen
30.08.2019 12:23:20
Stefan
In meiner Excel Datei geht es um einen Stundennachweis, auf gut Deutsch, wenn in Combobox_ZeitPb etwas eingetragen ist, sollen die beiden Zeiten von Combobox_ZeitPb die Zeit von Combobox_ZeitPv gerechnet werden.
Die Comboboxen werden beide aus der Tabelle6!Z2:Z82 gespeist, die Zeitsprünge sind jeweils 15min.
Mein bisheriger Code is folgender:
If ComboBox_ZeitPb.Text "" Then
Worksheets("Tabelle2").Range("F2").Value = Format(CDate(ComboBox_ZeitPb.Value) - CDate(ComboBox_ZeitPv.Value), "hh:mm")
Das funktioniert soweit auch wunderbar, aber da die Zeiten zwischen 06:00 und 02:00 liegen können, habe ich ein Problem.
Wenn jetzt derjenige um 23:00 kommt (_ZeitPv) und um 01:45 geht (_ZeitPb), dann komme ich nicht auf die normalen 2:45 in meiner Auswertung, sondern auf 21:15 als Ergebnis.
Meine Idee war schon, das eingetragene in _Pzbis einfach +24:00 zu rechnen, wenn es kleiner als 02:30 ist, kam aber auch nix vernünftiges bei raus.
Des weiteren, wenn die combobox mit der Pfeiltaste nach unten durchsuche, springt er von 11:45/00:30/1:15 immer auf 00:00. auch wenn ich auf die Zahlen 12:00/00:45/1:30 direkt klicke springt er automatisch auf die 00:00.
Hier hab ich noch meine Excel Datei in abgespeckter Form (sonst wäre sie zu groß geworden*g*
https://www.herber.de/bbs/user/131736.xlsm
Es geht um die UserForm_Stunden
Ich hoffe, ich konnte es einigermaßen erklären.
Ich wäre um jede Hilfe dankbar.