Start/Stopp-Uhr

[kpunkt]

Hallo,
ich möchte die Gesamtzeit eines Vorganges (der öfters unterbrochen wird) ermitteln - mittels Start/Stopp-Taste. Der Vorgangsname wird in einer Excelzeile eingetragen - daneben soll dann die Start/Stopp-Taste sowie die Gesamtzeit sein.
So weit so gut. Mit einem Vorgang d.h. einer Zeile komme ich schon klar. Nur: Ich möchte mehrere Vorgänge so stoppen - d.h. ich brauche in x-belieg vielen Zeilen untereinander diese Start/Stopp-Taste samt jeweiliger Gesamtzeit-Anzeige.
Wer kann mir dabei helfen?
Gruß
kpunkt

[Officer]

Hallo kpunkt,

ich würde es wie folgt lösen:

Aus meiner Sicht genügt ein einziger Start-Stopp-Button.
Damit der Button für alle relevanten Zeilen funktioniert, würde ich den Code so modifizieren, dass jeweils die aktuelle Zeile bzw. Zelle mit Start und Stop-Zeit versehen wird.

Wenn Du aber für jede relevante Zeile einen Button benötigst, bleibt Dir nur die Möglicheit den Button mehrmals zu kopieren und damit den dentsprechenden VBA-Code, welchen Du in einer Sub (Nicht im Code-Modul des Buttons) abgespeichert hast, aufzurufen.

Gruß

Officer

[Beverly]

Hi,

ermittle zu Beginn deines Codes die Zeile der ersten freien Zelle in der betreffenden Spalte (Beispiel Spalte A), dann kannst du den nächsten Eintrag in diese Zelle machen:

Code: [Auswählen]

    Dim lngErsteFrei As Long
    lngErsteFrei = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) + 1

Bis später,
Karin