Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zellwert nach Doppelklick in Tabelle suchen

Gruppe

BeforeDoubleClick

Problem

Der Suchbegriff aus Zelle C5 soll bei Doppelklick auf diese Zelle in den Spalten D:F gesucht und die Fundstelle selektiert werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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