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

[{Boris}]

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