Addere nyt tal til værdi

Højreklik på arkets fane og indsæt følgende kode

Dim værdi

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = Target + værdi
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
værdi = Target.Value
End Sub

Findes der ikke en funktion, uden makro? Jeg kører med 2007!

Funktionen skal bruges til et regnskab, så makroen skulle også gerne dække over flere celler

ret
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

til f.eks.

If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub

så gælder den fra A1 til A10

OK, hvis i begge lægger et svar fordeler jeg pointene

jeg skal ikke have, jeg supplerede excelent bare ;-))

Hvis excelent lægger et svar så!

det gør han så :-)