Zeit zwischen zwei Eingaben stoppen
07.04.2021 09:46:29
André
erst einmal ein Hallo in die Runde. Bisher habe ich gelegentlich passiv mitgelesen und schon gute Tipps gefunden. Bei folgendem Problem bin ich aber noch nicht fündig geworden und hoffe auf Eure Hilfe.
Ich habe es über VBA realisieren können (d.h. im Internet gefundenen Code für meine Zwecke angepasst), dass bei der Eingabe in bestimmte Zellen eine Zeitmessung startet und bei der Eingabe in andere Zellen die Zeitmessung stoppt. Dies funktioniert allerdings nur bis zu einer Dauer von 59 Sekunden. Ab 60 Sekunden zeigt mir die Ausgabezelle nur die Sekunden der neu angebrochenen Minute an (z.B. bei 75 Sekunden nur 15).
Wie muss ich das Format im Code anpassen, dass mir auch Sekunden >59 angezeigt werden. Ich möchte als Format gerne nur die Sekunden sehen in Form von z.B. 75 Sekunden und nicht 1:15.
Hier der Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$8" And [d8] "" Then zeit = Now
If Target.Address = "$H$8" And [h8] "" Then [k8] = Format(Now - zeit, "ss")
If Target.Address = "$H$9" And [h9] "" Then [k9] = Format(Now - zeit, "ss")
If Target.Address = "$H$10" And [h10] "" Then [k10] = Format(Now - zeit, "ss")
If Target.Address = "$H$11" And [h11] "" Then [k11] = Format(Now - zeit, "ss")
If Target.Address = "$H$12" And [h12] "" Then [k12] = Format(Now - zeit, "ss")
If Target.Address = "$D$9" And [D9] "" Then [J9] = Format(Now - zeit, "ss")
If Target.Address = "$D$10" And [D10] "" Then [J10] = Format(Now - zeit, "ss")
If Target.Address = "$D$11" And [D11] "" Then [J11] = Format(Now - zeit, "ss")
If Target.Address = "$D$12" And [D12] "" Then [J12] = Format(Now - zeit, "ss")
If Target.Address = "$D$14" And [d14] "" Then zeit = Now
If Target.Address = "$H$14" And [h14] "" Then [k14] = Format(Now - zeit, "ss")
If Target.Address = "$H$15" And [h15] "" Then [k15] = Format(Now - zeit, "ss")
If Target.Address = "$H$16" And [h16] "" Then [k16] = Format(Now - zeit, "ss")
If Target.Address = "$H$17" And [h17] "" Then [k17] = Format(Now - zeit, "ss")
If Target.Address = "$H$18" And [h18] "" Then [k18] = Format(Now - zeit, "ss")
If Target.Address = "$D$15" And [D15] "" Then [J15] = Format(Now - zeit, "ss")
If Target.Address = "$D$16" And [D16] "" Then [J16] = Format(Now - zeit, "ss")
If Target.Address = "$D$17" And [D17] "" Then [J17] = Format(Now - zeit, "ss")
If Target.Address = "$D$18" And [D18] "" Then [J18] = Format(Now - zeit, "ss")
End Sub
Vielen Dank im Voraus.