Mit folgendem Code wird nach jeder Eingabe in Zelle A1 in B1 hochgezählt und in C1 wie oft hochgezählt wurde.
Wenn ich jedoch z.B. daselbe auch in Zelle A2;B2;C2 , wie müßte ich bitte hier den Code ergänzen?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target.Offset(0, 1).Value = _
Target.Offset(0, 1).Value + Target.Value
Target.Offset(0, 2).Value = _
Target.Offset(0, 2).Value + 1
ERRORHANDLER:
Application.EnableEvents = True
End Sub
Danke
Josef