Beregning af tid, igen

Den viste formatering har kun en kosmetisk betydning for, hvordan data præsenteres i cellen. Cellens indhold er stadig lig med det indtastede.

Det du søger er en ændring af indholdet, så det optræder som timer og minutter i beregninger også.

Dette ser jeg 2 løsninger på:

1. Bibehold indtastningscellen, og lav en formel i en anden celle, der med udgangspunkt i det indtastede konverterer til timer/minutter.
=(HELTAL(A1/100) & ":" & REST(A1;100))*1

2. En VBA-kode der tjekker for indtastning i cellen, og konvertering til klokkeslæt.

Hvad foretrækker du?

Det ved jeg ikke. Der spørger du til noget der går langt uden for mid viden, jeg er temmelig newbee når det gælder excel ud over de ganske basale beregninger.

Hvis jeg indsætter die forslag 1. i en celle A3 og så indtaster 613 i celle A1 kommer den med et resultat 0,259028, og det jeg gerne ville var at den i den celle jeg indtaster 613 i automatisk laver det om til 6:13. Cellen skal være formateret så der kan beregnes på den.

Så det det er måske en løsning som du foreslår i 2.

Resultatet er korrekt, du mangler bare at formatere cellen til klokkeslæt.

Takker.

Er VBA koden en "smukkere løsning". Her tænker jeg på om den konvertering sker i den celle som man indtaster i og ikke som i 1. hvor konverteringen sker i en anden celle

VBA-løsningen er mere "elegant", da den konverterer i indtastningscellen.

Skal projektmappen anvendes af andre på andre maskiner, skal du være opmærksom på, at VBA-sikkerheden kan indstilles, så koden ikke kan afvikles.

Den skal kun bruges på en maskine

Prøv med denne kode:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim strTime As String
    With Target
        If .Cells.Count = 1 Then
            If IsNumeric(.Value) Then
                On Error GoTo ErrorOut
                Application.EnableEvents = False
                strTime = Format(Val(.Value), "0000")
                strTime = Left(strTime, Len(strTime) - 2) & ":" & Right(strTime, 2)
                If IsDate(strTime) Then
                    .Value = TimeValue(strTime)
                End If
            End If
        End If
    End With
ErrorOut:
    Application.EnableEvents = True
End Sub

Ja det er elegant og det virker

Lav et svar så får du poient

OK!

Jeg kommer lige tilbage, for da jeg åbnede mit ark igen virkede det ikke mere. Har nok ikke fået det gemt rigtigt

Det der rent faktisk sker er når jeg trykker f5 så kommer der en makroboks op der spørger om et navn. Hvis jeg så giver den et navn og taster f5 igen for at køre den så kommer makroboksen op igen.

Hvad skal jeg gøre for at få din kode til at virke igen