Thema Datum  Von Nutzer Rating
Antwort
29.05.2019 10:47:20 Jan
NotSolved
Blau Nach bestimmten Wort / Textinhalt suchen
 29.05.2019 17:03:09 Werner
*****
Solved

Ansicht des Beitrags:
Von:
Werner		 Datum:
29.05.2019 17:03:09		 Views:
427		 Rating:
     
Antwort:
 Nein
Thema:
Nach bestimmten Wort / Textinhalt suchen

Hallo Jan,

so:

Public Sub Test()
Dim i As Long, strSuche As String, strErgebnis As String

strSuche = "DeinSuchwort"

For i = 5 To Sheets.Count
    With Sheets(i)
        If .Cells(4, "O") = strSuche Then
            If strErgebnis = "" Then
                strErgebnis = Sheets(i).Name
            Else
                strErgebnis = strErgebnis & vbLf & Sheets(i).Name
            End If
        End If
    End With
Next i

If Not strErgebnis = vbNullString Then
    strErgebnis = MsgBox(strSuche & " ist in folgenden Blättern vorhanden:" _
    & vbLf & vbLf & strErgebnis, vbOKOnly, "Ergebnis")
Else
    MsgBox "Der Suchabegriff " & strSuche & " konnte nicht gefunden werden."
End If
    
End Sub

 

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.05.2019 10:47:20 Jan
NotSolved
Blau Nach bestimmten Wort / Textinhalt suchen
 29.05.2019 17:03:09 Werner
*****
Solved