VBA zähler zurücksetzen mit einen Zellenwert

Question

Hallo,
Habe folgenden Zähler in eingebaut und möchte das
er sich automatisch resetet wenn in einer anderen Zelle
ein Zelleninhalt erscheint.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERRH
Application.EnableEvents = False
[A1] = [A1] + 1
ERRH:
Application.EnableEvents = True
End Sub


Wie kann ich das in diesen Beispiel mit einbinden.
Habe schon alles durchsucht aber irgendwie nichts passendes gefunden.

Danke

Konrad Eger

Answer 1

hi Eger ^^

ein Beispiel

wenn b1 größer 0 =ruecksetzung

gruss nighty

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If [B1] > 0 Then [A1] = 0
[A1] = [A1] + 1
Application.EnableEvents = True
End Sub