Funktion der returnere tid

Hvor skal tidspunktet registreres

ligemeget, men gerne i felter i en kollone

Denne kode skriver tidspunktet i A-kolonnen.  Forudsætter at denne kolonne er tom ved første brug og ikke anvendes til andet.

Den skriver hvert tidspunkt i den første ledige celle i kolonnen, når der trykkes på knappen, og det samlede antal tidspunkter skrives så i B1.

Sub indstid()
  Range("a1").Select
  If ActiveCell = "" Then
      ActiveCell.Value = "Tiderne"
  End If
  Range("a65536").Select
  Selection.End(xlUp).Select
  ActiveCell.Offset(1, 0).Activate
  ActiveCell.Value = Format(Time(), hhmmss)
  Range("b1").Formula = "=Count(a:a)"
End Sub

Det er vel en tast på tastaturet og ikke en makro-knap der menes, eller?

Hvis det som janvogt skriver er en tast på tastaturet, der skal udløse koden, kan du indsætte følgende i arkets kodeark:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey "a", "indstid"
End Sub

Ret "a" til den tast på tastaturet, der skal udløse koden. Her altså bogstavet a.