tryk på celle, og der kommer et x

Du kan ikke forametere dig ud af det, men kode.

Der er 2 muligheder, dobbeltklik eller højreklik, jeg bruger selv højreklik

jeg viser begge her, de skal i arkets kodemodul

her tjekkes cellerne A1 til A100

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
  If Target.Value = "X" Then
  Target.Value = ""
Else
Target.Value = "X"
End If
  End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
  If Target.Value = "X" Then
  Target.Value = ""
Else
Target.Value = "X"
End If
  End If
End Sub

Kabbak -> dit højreklik vil virke bedre hvis du samtidig sætter cancel = true således at højrekliksmenuen ikke vises.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
      Cancel = True
      If Target.Value = "X" Then
        Target.Value = ""
      Else
        Target.Value = "X"
      End If
  End If
End Sub

rigtig bak, det glemte jeg

bak & kabbak
Det virker fortrinligt, og I fik udvekslet erfaring også.
Men gad vide om kbonline også får det til at fungere for sit vedkommende, eller måske har han glemt sit problem?

KOL

Næ næ :-)

Jeg skulle bare afprøve det hele.

1000 tak for hjælpen det var præcis som jeg drømte om.

Jeg smider lige lidt flere point i, og deler så i begge får de lovede 30 point :-)

Svar lige begge 2.

Points går til kabbak, jeg indskød bare en lille kommentar, for at få fjernet en irriterende detalje.

et svar ;-))

Fair nok, men faktisk en god detalje :-)

Tak for hjælpen til jer begge, kabbak får alle 60 point.

tak for point