Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: kpunkt am April 16, 2012, 10:34:01 Vormittag

Titel: Start/Stopp-Uhr
Beitrag von: kpunkt am April 16, 2012, 10:34:01 Vormittag

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

Titel: Antw: Start/Stopp-Uhr
Beitrag von: Officer am April 16, 2012, 11:05:45 Vormittag

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

Titel: Antw: Start/Stopp-Uhr
Beitrag von: Beverly am April 16, 2012, 11:23:17 Vormittag

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