Hallo zusammen
Ich habe von einem von euch diesen Code für mein Problem erhalten.
Public dMerk As Double
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$7" And IsNumeric(Target) Then
Application.EnableEvents = False
On Error Resume Next
Range("A7").Value = dMerk + Target.Value
dMerk = Range("A7").Value
Application.EnableEvents = True
On Error GoTo 0
End If
End Sub
Jetzt möchte ich diesen jedoch nicht nur auf diese eine Zellle anwenden, sondern auf viele verschiedene. Wie kann ich das machen ohne für jede Zelle das Makro kopieren und den Bezug ändern muss.
Danke im voraus