Hi Honk!
Ich weiß leider nicht ob Du dich in VBA auskennst aber ich probiers mal ...
Leg mal zwei Befehlsschaltflächen an und gib dann folgenden Code ein:
Private Sub CommandButton1_Click()
Cells(1, 1) = Time
End Sub
Private Sub CommandButton2_Click()
Set erg = Columns(1).Find(Empty)
If erg Is Nothing Then Exit Sub
erg = erg.Row
Cells(erg, 1) = Time - Cells(1, 1)
End Sub
Erklärung:
In der Variablen "Time liegt immer die Systemzeit"
Beim Klick auf CommandButton1 wird in die Zelle A1 die laufende Uhrzeit eingetragen nennen wir das "Startzeit"....
Beim Klick auf CommandButton2 wird die nächste freie Zelle in der ersten Spalte ermittelt, danach von der aktuellen Systemzeit die Startzeit abgezogen und schon hast Du die seither vergangene Zeit ermittelt...
Du brauchst jetzt nur mehr die Startnummer daneben einzutragen.
mfg Elac7
|