Datei im Anhang.
https://www.herber.de/bbs/user/86325.xlsm
Danke schon mal. Grüße Peter
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim varSuchen As Variant
Dim suche1 As Range
With Target
If Target.Column = 3 And Target.Row >= 11 And Target.Row