Suchen/Doppelklick/Zeichenkette
21.07.2004 20:19:12
Sabine
Seit einiger Zeit schlage ich mit dem Suchen von Einträgen im Tabellenkopf
herum.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngFind As Range
Set rngFind = Columns("C:C").Find(ActiveCell.Value, LookAt:=xlPart, LookIn:=xlValues)
If Not rngFind Is Nothing Then rngFind.Select
End Sub
Dieser Schnipsel findet natürlich nur Werte. Bei Text gibt es nur eine lange Nase mit einer Fehlermeldung. Die Recherche und die CD gaben nichts her. Hat jemand eine Lösung. Oder auch eine etwas weitergehende Erläuterung bzgl "Value" oder "Text".
Viele Grüße
Sabine