Suchen und Finden in nur einer Spalte

24/01/2010 - 14:19 von Ludwig | Report spam
Hallo,

ich möchte nur in einer bestimmten Spalte, in diesem Fall in der
Spalte "E" eine Namensübereinstimmung finden und habe die folgende
Prozedur gebaut.

Sub SucheInE()
Dim SuchText
Dim FrageAntwort
On Error GoTo Schluss
SuchText = InputBox("Bitte den Text eingeben", "Wir suchen einen
Namen")

Dim SuchBereich As Range
Set SuchBereich = Worksheets("Gemeinschaft").Range("$E$5:$E$200")
_
.Find(What:=SuchText, Lookat:=xlPart)
If Not SuchBereich Is Nothing Then
SuchBereich.Offset(0, 0).Select
End If
WeiterSuche:
FrageAntwort = MsgBox("Wollen Sie nach *" & SuchText & " *
weiter
suchen ?", vbYesNo + vbQuestion, "Achtung")
If FrageAntwort = vbNo Then Exit Sub
If FrageAntwort = vbYes Then GoTo WeiterImText

WeiterImText:
Cells.FindNext(After:=ActiveCell).Activate
GoTo WeiterSuche
Exit Sub

Schluss:
MsgBox "Der Suchbegriff wurde nicht gefunden"
End Sub

Mein Problem, die Suche wird nicht nur in der Spalte "E" durchgeführt
sondern verteilt sich auf das ganze Blatt und das leigt leider nicht
in meinem Sinne.

Wenn ich z.B. den kurzen Text "ma" als Suchbegriff eingebe, dann soll
die
Prozedur mir z.B. Martin, Baumann, Manfred, Ballmann u.s.w. finden
aber
eben nur in der Spalte "E" und nicht irgendo in einer anderen Spalte,
denn
der Suchbegriff "ma" kann ja in vielen Namen stecken.

Wer kann mir dazu eine Hilfestellung geben.

Vielen Dank im Voraus,

Mit freudlichen Grüßen

Ludwig
 

Lesen sie die antworten

#1 Martin Worm
24/01/2010 - 17:56 | Warnen spam
Am Sun, 24 Jan 2010 05:19:23 -0800 (PST),schrieb Ludwig:

hallo,

WeiterImText:
Cells.FindNext(After:=ActiveCell).Activate



[...]

Mein Problem, die Suche wird nicht nur in der Spalte "E" durchgeführt
sondern verteilt sich auf das ganze Blatt und das leigt leider nicht
in meinem Sinne.



Ich vermute, man muß Cells.Findnext in Suchbereich.Findnext àndern.

mit freundlichen Grüßen

Martin Worm
benutze XL 2000 und Win XP SpX

Ähnliche fragen