Private Sub sevGProzesskontrolle_AfterCellClick(ByVal nRow As Long, ByVal nCol _
  As Long, ByVal Button As Integer, ByVal Shift As Integer)
If nCol = 3 Then
    If sevGProzesskontrolle.Text(nRow, 5) = "" Then
        sevGProzesskontrolle.Text(nRow, 5) = Date & " " & Time
        sevGProzesskontrolle.UpdateRow
    End If
End If
End Sub