Range instellen

[mrnico]

Hallo is het ook mogelijk dat dit

alleen in Cel C5 tot C10 werkt

ik krijg nu in de hele werkmap kruisjes

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cl As Range
   Rng = ActiveCell.Address
   If Range(Rng) = "X" Then Range(Rng) = " ": Exit Sub
   If Range(Rng) = " " Then Range(Rng) = "X"
End Sub

 

[HSV]

Het zou dan zoiets moeten worden.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
if not intersect(target,range("c5:c10")) is nothing then
 target.value = iif(lcase(target) ="x","","x")
 cancel = true
end if
End Sub

 

[Ginger]

@mrnico, De oplossing staat hierboven al, daar hoef ik dus niets meer mee. Wat me wél opviel in je code is je gebruik van - vermoedelijk - een lege string. Dat geef je aan door 2 aaneensluitende dubbele quotes. Wat je nu in je code hebt gedaan, is testen of er een spatie in je cel staat. Dat lijkt me niet de bedoeling.

 

[mrnico]

Bedankt voor het snelle antwoord