excel sum

Det kan måske godt aldec sig gøre, men det er en ret kompliceret proces, der kræver en makro.

Jeg er ikke helt dikker på om dette er nok til at løse dit problem, men prøv og giv en melding. Højreklik på arkfanen for det relevante ark, vælg Vis Programkode og læg denne kode ind:

Public cnt As Double

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    cnt = Range("h1").Value
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Debug.Print cnt
If Not Intersect(Target, Range("k4")) Is Nothing Then
    Range("k1").Value = Range("k1").Value + Target.Value
End If

If Not Intersect(Target, Range("a1:f1")) Is Nothing Then
    Range("k1").Value = Range("k1").Value + Range("h1").Value - cnt
End If

End Sub


I første omgang skal du i K1 bare skrive =H1.

Hmmm jeg syntes ikke at det virker ! kan det være for at jeg har en svensk version?

Sproget har ikke noget at sige, så hvis det ikke virker, må det være noget andet. Hvad sker der, når du taster i fx K4?

Tak for hjælpen nu virker det.

Velbekomme. Men det er nu kotume at give pointene til den, der har hjulpet, ikke at tage dem selv :-)