Office-Fragen.de
Schaltflächen innerhalb eines Excelsheets mit Start-Stopp-Funktion hinterlegen - Druckversion

+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Schaltflächen innerhalb eines Excelsheets mit Start-Stopp-Funktion hinterlegen (/thread-28371.html)



Schaltflächen innerhalb eines Excelsheets mit Start-Stopp-Funktion hinterlegen - rfroels - 21.09.2022

[Bild: Screenshot-2022-09-21-195925.jpg]

Hallo Zusammen,
benötige mal euere Unterstützung.
Möchte in einem Excel-Sheet Schaltflächen, Start, Stopp und Reset für ca. 14 Aktivitäten und jeweils 5 Prozessschritte einrichten.
Beispiel:
Aktivität 1 = Küche putzen
Prozess 1 = Eimer besorgen
Prozess 2 = Eimer mit Wasser befüllen
Prozess 3 = Küche wischen
Prozess 4 = Trocknung
Prozess 5 = Schmutzwasser entsorgen und Eimer wegräumen.

Gibt es irgendwo und wie die Möglichkeit diese Aktion innerhalb des Excel-Sheets auszuführen, da ich pro Aktivität und den jeweiligen Prozessschritten die aufgebrachte Zeit ermitteln will?

Danke vorab für euere schnelle Unterstützung.

VG rfroels
.xlsx   Beispiel.xlsx (Größe: 14,67 KB / Downloads: 2)


RE: Schaltflächen innerhalb eines Excelsheets mit Start-Stopp-Funktion hinterlegen - {Boris} - 21.09.2022

Hi,

hier mal ein Beispiel mit Doppelklick. Code gehört in das Codemodul des entsprechenden Tabellenblattes.
Zellen Start und Stop mit hh:mm:ss formatieren.

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
    If Cells(7, .Column) = "Start" Or Cells(7, .Column) = "Stop" Then
        .Value = Now
        Cancel = True
    ElseIf Cells(7, .Column) = "Reset" Then
        .Offset(0, -2).Resize(1, 2).ClearContents
        Cancel = True
    End If
End With
End Sub

Eingabeunlogiken (z.B. Stop vor Start) sind noch nicht berücksichtigt. Soll Dir aber erstmal das mögliche Prinzip zeigen.

VG, Boris


RE: Schaltflächen innerhalb eines Excelsheets mit Start-Stopp-Funktion hinterlegen - rfroels - 22.09.2022

Hi Boris,

Danke zunächst für die schnelle Reaktion. Bin leider mit der Umsetzung nicht so firm, kannst du mir ggf. die einzelnen Schritte im Detail erklären?  Huh

Danke und Gruß
rfroels


RE: Schaltflächen innerhalb eines Excelsheets mit Start-Stopp-Funktion hinterlegen - RPP63 - 22.09.2022

Moin!
https://www.online-excel.de/excel/singsel_vba.php?f=44#s4
Dort fügst Du den Code von Boris ein.
Jetzt kannst Du im Bereich C5:E20 Doppelklicks ausführen.
Es wird entweder ein Timestamp eingefügt oder C:D gelöscht.

Gruß Ralf


RE: Schaltflächen innerhalb eines Excelsheets mit Start-Stopp-Funktion hinterlegen - {Boris} - 22.09.2022

Moin,

danke Ralf für die weitere Erläuterung - eine kleine Korrektur dazu:

Jetzt kannst Du im Bereich C5:E20 Doppelklicks ausführen.

Du kannst überall doppelklicken - und in allen Spalten mit Start, Stop, Reset passiert zudem das, was Ralf schrieb.

VG, Boris


RE: Schaltflächen innerhalb eines Excelsheets mit Start-Stopp-Funktion hinterlegen - rfroels - 22.09.2022

.....es funktioniert. Danke! 

Kann ich das ganze denn jetzt auch noch einschränken, so dass das Ergebnis nur in den spalten/Zellen der Zeitbemessung ausgewiesen wird? 

VG 
rfroels

PS: Jungs, ihr seit Spitze!!


RE: Schaltflächen innerhalb eines Excelsheets mit Start-Stopp-Funktion hinterlegen - {Boris} - 22.09.2022

Hi,

Kann ich das ganze denn jetzt auch noch einschränken, so dass das Ergebnis nur in den spalten/Zellen der Zeitbemessung ausgewiesen wird?

Ich versteh die Frage nicht, denn der Code prüft doch die Spaltenüberschriften in Zeile 7 - in anderen Spalten passiert nix.

VG, Boris


RE: Schaltflächen innerhalb eines Excelsheets mit Start-Stopp-Funktion hinterlegen - rfroels - 23.09.2022

Moin Boris,
ja, das ist richtig.
Aber oberhalb der Zeile 7, z.B. Zeilenbereich 1-5 bzw. 22-..... kann ich diese Aktion ebenfalls starten und es werden mit dort die Zeiten genannt. Das hätte ich gerne ausgeschaltet, wenn möglich.
Beim testen ist mir dann noch etwas aufgefallen bzw. ein neues feature, welches mir fehlt eingefallen.
Nach Beendigung einer Aktion mit der Start-Stopp Funktion wäre es hilfreich, diese Aktion erneut zu starten und die neu aufgebrachten Zeiten mit der ersten Aktion zu kumulieren. Gibt es da irgendwelche Möglichkeiten?
Danke.
VG
rfroels