Suche in Zelle

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Suche in Zelle
von: Jörg
Geschrieben am: 23.05.2002 - 07:31:19

Hallo,

ich habe eine Suche gefunden mit der Ich einzelne Begriffe in einer Excelliste suchen möchte.
Das Problem hier ist ich benötige den Genauen Begriff und kann
keine Teilstücke eingeben.
Wie kann ich das Lösen ???

Der Code :

Option Explicit

Sub Suchen()
Dim rngFind As Range
Dim strFind As String
strFind = InputBox("Suchbegriff:")
If strFind = "" Then Exit Sub
Set rngFind = Columns(1).Find(strFind, lookat:=xlWhole, LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
Exit Sub
End If
Rows(rngFind.Row).Select
End Sub

nach oben   nach unten

Re: Suche in Zelle
von: rainer
Geschrieben am: 23.05.2002 - 08:21:47

Hallo Jörg! Ersetze xlwhole durch xlpart, dann müßte es schon gehen...
Gruß
Rainer

nach oben   nach unten

Re: Suche in Zelle
von: Jörg
Geschrieben am: 27.05.2002 - 09:40:26

Hallo Rainer,

leider nicht ich bekomme immer die Meldung angezeigt.


Jörg


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Neue Symbolleiste mit Makro erstellen"