Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Suche nach Teil eines Zelleninhalts

Forumthread: Suche nach Teil eines Zelleninhalts

Suche nach Teil eines Zelleninhalts
03.02.2004 09:41:52
Rolf
Hi Leute,
Folgendes Problem:
In Zelle A1 wird zum Beispiel "bo" eingetragen.
Aus einer Liste will ich nun alle Begriffe aufgelistet, die im Inhalt ein "bo" haben, also:
boot
verboten
Bobo
etc.
wie kriege ich das im VBA hin, dass es mir auch nach Wortteilen sucht?
Danke für eure Anregungen!
Rolf
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche nach Teil eines Zelleninhalts
03.02.2004 09:52:36
AndreasS
Morgen,
vielleicht hilft dir ja das weiter:

Sub MultiSeek()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = "bo"
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
lookat:=xlPart, _
LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox( _
prompt:="Weiter", _
Buttons:=vbYesNo + vbQuestion _
) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
MsgBox prompt:="Keine neue Fundstelle!"
End Sub

Gruß Andreas
Anzeige
Danke! o.T.
03.02.2004 12:43:54
Rolf
.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige