Suchen nach Texten
01.12.2003 12:09:45
Johann
Wer kann mir bitte weiterhelfen!
Ich möchte mit u. A. Code ebenfalls "Namen" suchen!
Private Sub Worksheet_BeforeDoubleClick1( _
ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
If Target.Address <> "$b$3" Then Exit Sub
Cancel = True
Set rng = Range("b10:b200").Find(Range("b3").Value, _
LookAt:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
rng.Select
Else
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
End If
End Sub
Als Beispiel: in einer Zelle (Bereich b10 bis b200) steht zb. "Müller Karl"
Ich möchte nun den Code insoweit adaptieren, dass er wenn ich in B3 nur "Müller" eingebe, das Makro ebenfalls diese Zelle vorschlägt!!
Besten Dank im voraus für die Unterstützung!!
Gruß
Johann