ich habe folgenden VBA Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Set rng = Range("D28,D30,D32,D34,M28")
If Intersect(rng, Target) Is Nothing Then Exit Sub
Cancel = True
If Target = "X" Then
Target = ""
Else
Target = "X"
Target.HorizontalAlignment = xlCenter
End If
End Sub
Wie muß ich diesen abändern, damit nur ein Feld anwählbar ist ?Entweder sollen die anderen Felder gesperrt bleiben bis das ausgewählt Feld wieder abgewählt wird, oder was noch besser wäre, das angewählt Feld wird bei anklicken eines neuen Feldes automatisch gelöscht.
Gruß
Erik