Hvordan undgår jeg at skulle taste :

Se på brugerdefineret format..

Jeg har formatteret områderne jeg taster i, problemet/opgaven består i ren "dovenskab" som kan give mig løsningen på følgende.

Jeg ønsker at indtaste tiden 12:36 i en celle som er formateret til at være [t]:mm:ss normal indtastningen er her 12kolon36 og resultatet er 12:36 i cellen.

Grunden til [t] er at jeg skal kunne regne kontinuerligt med timer, så beregningerne ikke stopper ved 24:00 som er klokketimerne i et døgn.

Jeg vil gerne ind på en løsning af : hvordan slipper jeg for at trykke det?

Hvis jeg taster 1236 uden :får jeg følgende i cellen 00:00 0g når jeg kigger i fx 20-05-1903  00:00:00
Det betyder jo at Excel beregner min dato udfra den der lange formel omkring 1 år = 365 døgn = 365*24 timer osv osv... Og tror derfor jeg beder den om at finde den dato der matcher tallet 1236 --> 20-05-1903

Hvorfor vil jeg gerne af med : indtastningen... fordi det tager for evigt at taste tal-tal : tal-tal.... For tallene ligger jo i fingrene på højre hånd, men kolon ligger bare tåbeligt :)

I brugerdefineret format: ##\:##

1230 -> 12:30

Ja det fungere, men desværre kan jeg ikke regne med cellerne?

Start    Stop    Tid
12:30    14:00    1:70

Det er jo ikke helt rigtig, det skulle have været :90 eller 1:30 for at give mening, se også dette:

A1    B1    C1
Start    Stop    Tid
12:30    13:15    :85

Her skulle det jo have været :45?

Jeg har lavet simpelt i C3 fx: =B3-B3
Når jeg laver [t]:mm:ss formateringen, så kan den godt regne:

A1    B1    C1
Start    Stop    Tid
12:30:00    13:15:00    0:45:00

Any suggestions?

Denne makro gør at en 3- 4-cifret eller indtastning i en celle i det navngivne område TidCol bliver lavet om til en tid der kan bereggnes på.
Hvis du navngiver kolonne A og kolonne B som TidCol vil makroen fange 3- og 4-cifrede indtastninger i dette område som tid.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    On Error GoTo Slut
    Application.EnableEvents = False
    If Not Intersect(Target, Range("TidCol")) Is Nothing Then
        If IsNumeric(Target.Value) Then
            If Target.Value Mod 1 = 0 And Target.Value > 0 Then
                If Len(Target.Value) >= 2 And Len(Target.Value) <= 4 Then
                    iTime = Left(Format(Target, "0000"), 2)
                    iMinut = Right(Format(Target, "0000"), 2)
                    If iTime < 24 And iMinut <= 59 Then
                        Target = iTime / 24 + iMinut / 24 / 60
                    Else
                        Target = ""
                    End If
                    Target.NumberFormat = "[t]:mm"
                Else
                    Target.Value = ""
                End If
            Else
                Target.Value = ""
            End If
        Else
            Target.Value = ""
        End If
    End If
Slut:
    Application.EnableEvents = True
End Sub


Hvis kolonne A er starttid og kolonne B er sluttid vil nedenstående formel i kolonne C beregne antal timer mellem de 2 tidspunkter. Den tager også højde for det hvis arbejdstiden overskrider midnat.
Hvis du f.eks. møder kl 23:00 og får fri kl. 07:00 vil beregningen blive 8 timer.
Både kolonne A, B og C skal være formateret til det brugerdefinerede format [t]:mm for at det virker.

En "quick and very dirty" solution kunne være at bruge det numeriske tastatur og så midlertidigt under Autokorrektur at ændre , (komma) til: (kolon). Så kan du bruge højre hånd.

mvh Hans

Den var god Tak for det :)

Jeg kan godt lide Quick and Dirty :)

Hvordan giver jeg jer point?

Tak :)

Kommer selvfølgelig for sent :-( men en anden mulighed.....

OPret i en kolonne (her D) en celle med indtastning i brugerdefineret format "## ##"...
Opret i cellen til højre formlen:
=SAMMENKÆDNING(VENSTRE(D5;2);":";HØJRE(D5;2))
Denne nye kolonne kan formateres som [t]:mm som du kan bruge til beregning.

mvh KurtOa

Lidt svært at se hvem du vil give point.
Lige nu ser det ud til at være dkhanknu med "quick and very dirty" løsningen.
Sig klart hvem du vil have svar fra så du kan give point.

En noget mere elegant løsning vil være at gå ind i Control Panel, vælge Regional and Language Options, Regional Options, Customize, Time og der vælge , (komma) som time separator. Så kan komma bruges uden videre i celler der er formatteret som hh,mm.

En lille tilføjelse til ovenstående: Med rettelse i control panel vil indtastning med kolon både blive accepteret i celler der er formateret som hh,mm og i celler der er formateret generelt

Jeg vil gerne give point til både dkhanknu og til perhol, det er mest fordi de begge løste mit problem i går :)

Men tak til alle for deltagelsen i løsningen.

giv point til perhol der ubetinget har lavet det største arbejde (og jeg samler alligevel ikke på point).

Hans

Tja, min løser jo det egentlige spørgsmål så du ikke skal taste deletegnet (:).
Kræver lidt mere arbejde når arket laves, lidt mindre arbejde for eftertiden.
Bruger selv koden på arbejdet i nogle ark der bruges af mange som jeg forventer ikke husker hvad deletegnet skal være.
Da koden fjerner indtastningen hvis man indtaster noget forkert (inkl. deletegnet), har jeg sat en meddelelse på hver celle ved hjælp at Datavalidering.