Hallo,
das u.a. Makro funktioniert gut - allerdings möchte ich auch die Eingabe eines x oder X per Tastatur ermöglichen.
Wie lässt sich das denn bewerkstelligen?
------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("b3,h3,o3,x3,ac3,h5,o5,x5")) Is Nothing Then
If Target = "" Then
Target = "X"
Else
Target = ""
End If
Cancel = True
End If
End Sub