Avatar billede Allan_Knudsen Nybegynder
08. maj 2009 - 14:24 Der er 3 kommentarer

Tidstagning til løb

Hej Eksperter.

Jeg er ved at arrangere et løb i en lille by og vil i den forbindelse bruge Excel til at holde styr på tiden.

Jeg har fundet en makro i et andet spørgsmål her inde: http://www.eksperten.dk/spm/437527#reply_7376225

Option Explicit

Sub TagTid()
Dim rCell As Range
Dim bFound As Boolean
Dim iRowNo As Integer
Dim iRytNo As Integer

    iRytNo = InputBox("Angiv rytter nr. ")
 
    For Each rCell In Range("A6:A25")
        If rCell.Value = "" Then Exit For
        If rCell.Value = iRytNo Then
            bFound = True
            iRowNo = rCell.Row
            Exit For
        End If
    Next rCell
 
    If bFound = True Then
        Range(Cells(iRowNo, 1), Cells(iRowNo, 1)).Select
        ActiveCell.End(xlToRight).Offset(0, 1).Select
        ActiveCell.Value = Format(Now, "HH:MM:SS")
    End If
End Sub

Det skal lige nævnes at jeg ingen forstand har på at programmere, men bare har hugget makroen :-)
Men den passer lige til det jeg skal lave, på nær en ting.

Der bliver tre ruter man kan løbe og i mit ark ville jeg gerne have de tre ruter med folks navne og nummer stående ved siden af hinanden.
Men så kan jeg ikke få makroen til at fungere.

For i denne linie:

For Each rCell In Range("A6:A25")

Angives det hvor løbernes start nummer skal stå. Jeg kan godt finde ud af at flytter den "Range" til et andet sted feks. C6:C50, men hvis jeg nu gerne vil have makroen til at "se" i flere forskellige rækker feks. C6:C50, D6:D50 og G6:G50, hvordan skal det så skrives i makroen?

Håber det er bare lidt forståeligt hvad jeg spørger om, ellers uddyber jeg gerne :-)

Allan
Avatar billede rexden1 Nybegynder
08. maj 2009 - 18:54 #1
Du kunne fx prøve med: For Each rCell In Range("A6:g50")
Avatar billede Allan_Knudsen Nybegynder
08. maj 2009 - 23:07 #2
Nej, det virker desværre ikke.
Avatar billede Allan_Knudsen Nybegynder
10. maj 2009 - 17:36 #3
Er der slet ingen der har et bud på hvordan det gøres?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester