angeregt durch eine Thread von gestern und aus etwas Langeweile, hab ich
ein kleines Add-in erstellt, mit dem man Zellen De-Selektieren kann.
Wer will kann es mal testen. VBA-Projektschutz: PW = "x"
https://www.herber.de/bbs/user/66615.xla
For Each rng In Target
If Not objRange.exists(rng.Address) Then
objRange.Add rng.Address, 1
Else
objRange(rng.Address) = 2
blnDeSelect = True
End If
Next
If blnDeSelect Then
arrAddress = objRange.keys
arrCount = objRange.items
For lngI = 0 To UBound(arrAddress)
If arrCount(lngI) = 1 Then
If rngS Is Nothing Then
Set rngS = Range(arrAddress(lngI))
Else
Set rngS = Union(rngS, Range(arrAddress(lngI)))
End If
End If
Next
If Not rngS Is Nothing Then rngS.Select
End If
End If
End If
End If
ErrExit:
XLapp.EnableEvents = True
End Sub
Gruß ausm Pott