Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Static sblnChange As Boolean
With Target
If .Address = "$A$1" Then
If LCase$(String:=.Value) = "x" And Not sblnChange Then
With Tabelle2.Cells(1, 1)
.Value = .Value + 1
End With
sblnChange = Not sblnChange
ElseIf Not LCase$(String:=.Value) = "x" And sblnChange Then
With Tabelle2.Cells(1, 1)
.Value = .Value - 1
End With
sblnChange = Not sblnChange
End If
End If
End With
End Sub