Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Suchen nach Begriff | Herbers Excel-Forum


Betrifft: Suchen nach Begriff von: Gregor
Geschrieben am: 13.11.2009 08:07:42

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

  

Betrifft: AW: Suchen nach Begriff von: Heinz A. Wankmüller
Geschrieben am: 13.11.2009 08:31:40

Hallo Gregor,

ersetze den Befehl lookat:=xlWhole durch lookat:=xlPart

Gruß
Heinz


  

Betrifft: AW: Suchen nach Begriff von: Gregor
Geschrieben am: 13.11.2009 15:56:04

Vielen Dank
Gregor


Beiträge aus den Excel-Beispielen zum Thema "Suchen nach Begriff"