Inputbox der flytter til næste ledige celle

Jeg forstiller mig noget mere simplet....
Kolonne A LøberNr
Kolonne B Tidsstempel (formateret til hh:mm:ss)

En lille kode på arket
[code]Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Cells(Target.Row, 2) = "" Then
            Cells(Target.Row, 2) = Now()
        End If
    End If
End Sub[/code]

Eksempel 957103

glem [code] tags

Indtast deltager-numrene forud,
brug så Formular,
både til søgning og indtastning.

Hej Flemming
Lige det jeg havde brug for - men godt du havde lavet eksemplet så fik jeg det til at virke - TAK.

Kan man på samme måde i kolonne E lave en tæl.hvis funktion af hvor mange gange en person har rundet målstregen (antal gange navnet står i kolonne B) ??

tror du ikke en SUM.HVIS kan løse den problematik..?

SUM.Hvis, har prøvet lidt men kan ikke rigtig få den til at tælle hvor mange gange eksempelvis Torben står nævnt i kolonne B

Hej Flemming

jeg har prøvet at udevide din formel lidt - uden held ;-)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Cells(Target.Row, 3) = "" Then
            Cells(Target.Row, 3) = Now()
           
            Cells(Target.Row, 5).Select
            ActiveCell = "=Count.if(B:B;Cells(Target.Row, 2))"
            '=Countif(B:B;Cells(Target.Row, 2))
        End If
    End If
   
   
End Sub

tilføj