tidstagning

Kunne det ikke være i et regneark - Excel f.eks.?

jo men tænker at det ville være nemmere på den måde her.. så bare man skriver båd nr ind i et felt og så den selv smider tiden på

Det kan man da også i Excel..

ja men nu har jeg en ide om det jeg skriver om jo.. :) så det måtte det gerne være..

Du er velkommen til at sende en skitse - således som du forestiller dig Excel-arket ombygget.

@-adresse under min profil.

hejsa supertekst jeg har sendt dig en mail ....

takker for hjælpen :)

Hvis du vil give point til mig - skal du afvise dit eget svar og acceptere mit - og selv tak.
(PS: Svar anvendes kun af forslagsstillerne - opgavestilleren anvender Kommentar og modtagne svar kan accepteres eller afvises)


Dim sidsteR As String
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    Cancel = True
   
Rem kolonne C: STARTTID
    sidsteR = Target.Address
    If Target.Address = "$I$1" Then
        ActiveSheet.Unprotect
        beregnPlacering
    End If
   
    If Target.Row > 1 And Target.Row <= 51 Then
        If Target.Column = 3 Then
            Target.Value = Format(Now, "hh:mm:ss")
        Else
    Rem kolonne D: FØRSTE OMGANG
            If Target.Column = 4 Then
                Target.Value = Format(Now, "hh:mm:ss")
    Rem Beregn første omgang (formel)
            Else
                If Target.Column = 6 Then
                    Target.Value = Format(Now, "hh:mm:ss")
                End If
            End If
        End If
    End If
End Sub
Private Sub beregnPlacering()
Dim antalRæk As Integer, ræk As Integer, sortRæk As Integer, pladsNr As Integer, pladsRække As Integer
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    sortRæk = 2
   
    Application.ScreenUpdating = False
   
Rem slet tidligere indhold
    Range("K2:L1000").Select
    Selection.ClearContents
   
    For ræk = 2 To antalRæk
        If Range("H" & CStr(ræk)) <> "" And Range("D" & CStr(ræk)) <> 0 And Range("F" & CStr(ræk)) <> 0 Then
          Range("K" & CStr(sortRæk)) = Range("H" & CStr(ræk))
          Range("L" & CStr(sortRæk)) = ræk
          sortRæk = sortRæk + 1
        Else
            Range("I" & CStr(ræk)) = ""
        End If
    Next ræk
   
    sortering sortRæk - 1
   
Rem anvend sorteringen
    pladsNr = 1
    For ræk = 2 To sortRæk - 1
        pladsRække = Range("L" & CStr(ræk))
        Range("I" & CStr(pladsRække)) = pladsNr
        pladsNr = pladsNr + 1
    Next ræk
   
    Application.ScreenUpdating = True
    Range(sidsteR).Select
   
    ActiveSheet.Protect

End Sub
Private Sub sortering(sidsteRæk)
    Range("K2:L" & CStr(sidsteRæk)).Select
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Add Key:=Range("K2:K" & CStr(sidsteRæk)), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Ark1").Sort
        .SetRange Range("K2:L" & CStr(sidsteRæk))
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

er denne løsning ok ? jeg har prøvet at lave en kopi, men kan ikke få den til at virke

Hej Jesper

Nu er der jo "løbet meget vand i fjorden" siden ovennævnte VBA-kode blev skrevet.
Der er sket meget nyt siden og jeg har ikke afprøvet den siden.

Mvh
Peter Braagaard

ok, så du kan ikke huske hvordan det skal bruges ? jeg har kopieret din kode ind, men kan ikke rigtig se hvordan den skal fungerer

Der kan meget vel være udtryk i omtalte vba-kode, der ikke er nutidig - der er jo sket en del siden 2010.
Hvilken Excel-version anvender du?

Jeg Bruger den sidste nye, kan jeg få dig til at prøve og så lægge en kopi op ?

Ok - har ikke den originaler xls-fil mere - det er jo snart 10 år siden.
Eller var det noget andet du mente?

måske om du kan læse koden i din og se m den virker ?

Problemet er blot at jeg har ikke andet end det du også kan se på Eksperten.
Har nok haft det  - men ikke mere.
Du kan da prøve at henvende dig til den, der har oprettet indlægget.

ok tak :-)

Selv tak