Hej Dennis,
Du kan faktisk sætte én kode ind som virker på hele dit regneark.
For at dette skal virke optimalt, er vi nødt til at have et par kriterier som fortæller Excel på hvilke områder og på hvilke ark den skal virke.
I stedet for at placere koden under det enkelte ark, skal koden placeres i 'Denne_projektmappe' (THISWORKBOOK)
Gør på samme måde som før, blot husk at vælge 'Denne projektmappe' i venstre siden af din skærm inden du sætte koden ind.
Koden kører ved indtastning i kolonne B, i række 13 og nedad, og kun på ark hvor cellen A1 = x (for at du kan styre hvilke ark koden skal virke på)
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("A1") <> "x" Then Exit Sub
If Target.Row < 13 Then Exit Sub
If Target.Column <> 2 Then Exit Sub
If IsNumeric(Target.Value) Then
Range("C" & Target.Row).Value = Range("C" & Target.Row).Value + Target.Value
End If
End Sub
//Allan