Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngB As Range
Set rngB = Intersect(Target, Cells(1, 1).Resize(2))
If Not rngB Is Nothing Then
If rngB.Count = 2 Then
MsgBox "Es darf nur eine Zelle geändert werden."
ElseIf rngB.Count = 2 Then
Application.EnableEvents = False
If rngB.Row = 1 Then
Cells(2, 1).ClearContents ' oder Clear
Else
Cells(1, 1).ClearContents ' oder Clear
End If
Application.EnableEvents = True
End If
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort