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