hier eine Variante, bei der zur Fundstelle gesprungen wird
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strSuche As String
Dim Bereich As Range
strSuche = InputBox("Bitte geben Sie den Suchtext ein:")
If strSuche = "" Then Exit Sub
if Target.countlarge>1 Then exit sub
If Target.Row = 8 And (Target.Column = 2 Or Target.Column = 4) Then
Set Bereich = Intersect(UsedRange, Target.EntireColumn).Find(strSuche)
If Not Bereich Is Nothing Then
Cancel = True
Application.Goto Bereich
End If
End If
End Sub
|