tal der skifter hele tiden skal lægges til sum

Tjaa, hvis du taster værdien ind i A1 og vil have akkumuleret sum i A2 så burde denne kode virke.

den skal være i arkets modul

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
  Range("A2") = Range("A2") + Target
End If
End Sub

nu er jeg ikke nogen excel haj så jeg er ikke helt klar over hvordan jeg sætter koden ind. jeg har fire celler hvor dette skal foregå

Du skal sætte koden ind i Visual Basic editoren som du finder ved at trykke ALT+f11. Så vælger du insert - new module
Indsætter koden fra kabbak
Og så skal du tilbage i dit regneark og vælge funktioner - makro - afspil makro. Her vælger du så worksheet_change og så skulle du være kørende.
Hvis du har flere celler så kan du kopiere dette flere gange og så erstatte a1 og a2 med de pågældende celler

If Not Intersect(Target, Range("A1")) Is Nothing Then
  Range("A2") = Range("A2") + Target

nu har jeg fået en celle til at virke så det lige de tre andre

Hvilke celler drejer det sig om?

hvis der kommer nogen svar vil jeg gerne give nogle point

b6 skal returnere i b10
c6 i c 10
e6 i e 10
f6 i f 10

If Not Intersect(Target, Range("A1")) Is Nothing Then
  Range("A2") = Range("A2") + Target

Dette sætter du ind 4 gange i den første skriver du b6 i stedet for a1 og b10 i stedet for a2.

På samme måde med c6 i stedet for a1 i den næste og c10 for a2 i den næste.

jeg kan kun få det til at virke med en celle ad gangen skal jeg lave et nyt modul for hver af cellerne eller skal koderne være i samme modul

Begge dele burde virke - jeg har ikke teste det - men en fejlsikret er at lave det i forskellige moduler

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B6")) Is Nothing Then
  Range("B10") = Range("B10") + Target
End If

If Not Intersect(Target, Range("C6")) Is Nothing Then
  Range("C10") = Range("C10") + Target
End If

If Not Intersect(Target, Range("E6")) Is Nothing Then
  Range("C10") = Range("C10") + Target
End If

If Not Intersect(Target, Range("F6")) Is Nothing Then
  Range("F10") = Range("F10") + Target
End If

End Sub

Jeps - min fejl - havde glemt end if... Tak kabbak

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B6")) Is Nothing Then
  Range("B10") = Range("B10") + Target
End If

If Not Intersect(Target, Range("C6")) Is Nothing Then
  Range("C10") = Range("C10") + Target
End If

If Not Intersect(Target, Range("E6")) Is Nothing Then
  Range("E10") = Range("E10") + Target
End If

If Not Intersect(Target, Range("F6")) Is Nothing Then
  Range("F10") = Range("F10") + Target
End If

End Sub

lige en rettelse ;-))

jmeincke > det er forkert at du skriver at koden skal i et New module, det skal være i arkmodulet.

I det ark du har dinne celler på, højreklikker du på arkfanen, vælg vis programkode, der skal koden være.

den virker ikke andre steder.

nu virker det kan i ikke lade mig give nogen point få alletider besvarelser

jeg smider et svar ;-))

Kabbak > Det var jeg faktisk ikke klar over... Men hvis du sætter den i module og afvikler den så gør den det jo i det ark man står i...

Jeps - giv points til kabbak

ok, men den afvikles automatisk, når du ændrer i cellerne,og koden er i arkmodulet.

Det er jo smart - det var jeg ikke klar over - respekt ;-)

tak for point