Wie kann Makros auf mehrere Zellen anwenden?
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
2 Antworten
Teste mal:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:C5")) Is Nothing Then 'Bereich (range) anpassen
If IsNumeric(Target) Then
Application.EnableEvents = False
On Error Resume Next
Target.Value = dMerk + Target.Value
dMerk = Target.Value
Application.EnableEvents = True
On Error GoTo 0
End If
End If
End Sub
funktionierts irgendwie nicht.
Das ist eine sehr ungenaue Beschreibung eine Fehlers.
Beschreibe das bitte ganz genau, sonst kann ich Dir nicht helfen.
Hast Du den Code genau SO übernommen oder angepasst? Wenn ja, wie?
Bette das ein in
Dim C
For each C in Selection
...
next C
und ersetze alle Target durch C
Ok, danke vielmals. ALso muss ich eigentlich nur bei Range den Bereich eingeben den ich haben will? Wenn ich das so mache funktionierts irgendwie nicht.