Hallo Karin, nächste Bitte. Ich benutze das folgende vba und es funktioniert.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Beim doppelklick in Spalte H,i und J sowie O,P und Q ein x eintragen, es darf immer
'nur 1 x in der Zeile (H,i,J und O,P,Q) vorhanden sein.
If Not Intersect(Target, Range("h4:j200")) Is Nothing Then '<== Bereich anpassen
Cancel = True
Range(Cells(Target.Row, 8), Cells(Target.Row, 10)).ClearContents
Target = "x"
Target.HorizontalAlignment = xlCenter
End If
If Not Intersect(Target, Range("o4:q200")) Is Nothing Then '<== Bereich anpassen
Cancel = True
Range(Cells(Target.Row, 15), Cells(Target.Row, 17)).ClearContents
Target = "x"
Target.HorizontalAlignment = xlCenter
End If
End Sub
Es sollte aber in den benannten Zellen kein kopieren und einfügen oder verschieben möglich sein, nur mit doppelklick ein x wie angegeben. Bitte um ein komplettes vba. Danke