Opdatere ved tryk på enter..

hvis du bruger Private Sub Worksheet_SelectionChange(ByVal Target As Range)

så prøv istedet at bruge
Private Sub Worksheet_Change(ByVal Target As Range)

Den opdaterer kun ved reele ændringer i arket

den gør på sin vis det jeg eftersøgte, det eneste problem er nu at den laver fejl i det kode jeg har skrevet, og så dør excel.

så vis din kode,  så kigger vi på det.

Beklager der er gået så lang tid, men har ikk haft adgang til internettet i et stykke tid..

Dim timer3 As Single
Dim timer4 As Single

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    timer3 = 0
    timer4 = 0
   
    ' uge 39-40
    If Ark1.[g4] < 37 Then
        timer3 = Ark1.[i4]
        [b5] = Ark1.[g4] + timer3
    Else
        [b5] = Ark1.[m4]
    End If
    If Ark1.[g5] < 37 Then
        timer4 = Ark1.[i5]
        [b5] = [b5] + Ark1.[g5] + timer4
    Else
        [b5] = [b5] + Ark1.[m5]
    End If
    If [b5] < 74 Then
        [b6] = 74 - (timer3 + timer4)
    Else
        [b6] = 74
    End If
End Sub

lukker..