Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Suchen nach Begriff

Suchen nach Begriff
Gregor
Hallo
Im Forum habe ich folgenden Code gefunden:
Sub Auswahl()
Dim rng As Range
Dim sBegriff As String, sAddress As String
sBegriff = "Roche"
Set rng = Cells.Find( _
what:=sBegriff, _
lookat:=xlWhole, _
LookIn:=xlValues, _
MatchCase:=False, _
after:=ActiveCell)
If rng Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!", , _
Application.UserName
Exit Sub
End If
sAddress = rng.Address
rng.Select
MsgBox rng.Address(False, False)
rng.Offset(1).Select
End Sub
Nun suche ich jedoch nach Begriffen, die in einer Zelle anders geschrieben sein können. Am Beispiel Roche:
- Roche VD
- Roche (VD)
- Roche sur Buriel
- Roche (Lavaux)
Kann der Code geändert werden, dass ich alle Zellen finde, in denen der Begriff "Roche" vorkommt?
Mit
For Each c In Worksheets1).Range(Cells(3, 1), Cells(400, 26))
If c Like "*" & "Roche" & "*" Then
habe ich es schon versucht.$
Danke für die unterstützung
Gregor

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

Betreff
Benutzer
Anzeige
AW: Suchen nach Begriff
13.11.2009 08:31:40
Heinz
Hallo Gregor,
ersetze den Befehl lookat:=xlWhole durch lookat:=xlPart
Gruß
Heinz
AW: Suchen nach Begriff
13.11.2009 15:56:04
Gregor
Vielen Dank
Gregor
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige