Tallet skal forblive!

Mulighed:
Formlen skal erstattes af værdien og omvendt når nye tal indsættes - samtidigt skal den tidligere total gemmes, for at blive forøget - hvis det er forstået rigtigt.
Er der tale om de samme celler, der anvendes til beregning af totalen?

Via VBA skulle det måske kunne lade sig gøre...

Ja det er de samme celler de nye værdier skal sættes I, men den nye total skal lægges oven i den total man opnåede fra den tidligere beregning. Så cellen kun akkumulerer og intet kan få cellen til at slette tallet.

Hvilke celler er til indtastningen?
Hvilken celler er totalen?

Ser på det over middag...

Ok fx indtast jeg tal i 6 forskellige celler, de bliver sat sammen i en total i en 7. den total skal derefter placeres i en ny celle (8.) og lige præcis denne må kun tælle op, totalen i denne må ikke forsvinde selvom man har fjernet værdierne i de 6 tidligere nævnte celler og totalen i den 7. SKAL totalen i den 8. celle forblive.
Og som en ekstra tvist skal man kunne indtaste nye tal i de 6 første celler hvor der bliver dannet en ny total i den 7. som vil tillægges det tidligere fremkomne tal i celle 8.

Forstår du hvad jeg mener?

Det her er begyndt at gøre ondt i hovedet:-)

Du kan gøre det enten via en makro - eller ved at indstille fanebladet Beregning under Funktioner - Indstillinger, til at acceptere én gentagelse og så sætte beregning til Manuel.

Antag, at du taster tal i A1-6 og har summen i A7. I cellen, hvor der skal akkumulleres, fx A8skriver du så: =A7+A8.

Forslag - koden indsættes i relevante Ark.

Rem Celler til indtastning A1-A6
Rem Total i A7
Rem Løbende Total i A8
Rem :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Rem Ved Højreklik i en af disse (A1-A6) - slettes alle værdier heri
Rem :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target.Row >= 1 And Target.Row <= 6 Then
        Range("A1:A6").ClearContents
        Cancel = True
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rem :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Rem Ved klik i celle A8 opdateres denne med Totalen i A7
Rem og formel fjernes i A7 (0 sættes - a.h.t.  dobbel-opdatering)
Rem :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    If Target.Address = "$A$8" Then
            Cells(8, 1) = Cells(8, 1) + Cells(7, 1)
            Cells(7, 1) = 0
    Else
Rem ::::::::::::::::::::::::::::::::::::::::
Rem Ved klik i A1-A6 Sættes formel igen i A7
Rem ::::::::::::::::::::::::::::::::::::::::
        If Target.Column = 1 And Target.Row >= 1 And Target.Row <= 6 Then
            Cells(7, 1).Formula = "=Sum(A1:A6)"
        End If
    End If
End Sub

Højreklik på arkets fane, vælg Vis programkode, indsæt kode der

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A6")) Is Nothing Then Exit Sub
If IsNumeric(Target) Then [A8] = [A8] + Target
End Sub