VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zellwert nach Doppelklick in Tabelle suchen

Gruppe

Ereignis

Bereich

BeforeDoubleClick

Thema

Zellwert nach Doppelklick in Tabelle suchen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und BeforeDoubleClick