Gruppe
Ereignis
Problem
Der Suchbegriff aus Zelle C5 soll bei Doppelklick auf diese Zelle in den Spalten D:F gesucht und die Fundstelle selektiert werden.
ClassModule: Tabelle1
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
If Target.Address <> "$B$1" Then Exit Sub
Cancel = True
Set rng = Columns("D:F").Find(Range("B1").Value, _
lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
rng.Select
Else
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
End If
End Sub