So suchen Sie eine Zeichenfolge in ein Blattname?

Ich bin versucht, suchen Sie nach einem bestimmten string in alle Blattnamen der Arbeitsmappe, die mit " For-each-Schleife wie folgt:

 For Each Sheet In ActiveWorkbook.Sheets
  Name = ActiveSheet.Name
  Next Sheet

Aber ich bin nicht in der Lage, alle Blech-Namen mit obigen code, wie es klemmt nur ein Blattname.

Nachdem man den Namen des Blattes möchte ich suchen Sie nach einem bestimmten string in den Namen des Tabellenblattes, Also wäre es toll, wenn jemand mir helfen kann bei der Suche einer Zeichenfolge in alle Blätter.

  • wie wollen Sie die Liste der Suchergebnisse ?
InformationsquelleAutor Suman | 2011-07-28
  1. 3
    For Each sheet In ActiveWorkbook.Sheets
    If sheet.Name Like "*" & strSearch & "*" Then
        Debug.Print "Found! " & sheet.Name
    End If
Next

    Sie Durchlaufen alle Blätter, aber Sie immer ActiveSheet.Name in der Schleife.
    Die Suche nach einem Muster, die Sie verwenden können Like mit der * wildcard.

    InformationsquelleAutor Jacob
  2. 3

    Können Sie die InStr - Funktion sowie... oder vielleicht habe ich nicht bekommen, Ihre Frage richtig.

    Sub CheckSheets()        
    Dim oSheet As Excel.Worksheet
            For Each oSheet In ActiveWorkbook.Sheets           
        If InStr(UCase(oSheet.Name), UCase("Sheet")) Then                
            Debug.Print oSheet.Name                
        End If            
    Next oSheet        
End Sub
    • Diese Antwort hier ist, was wir brauchen, Absolvent bis zu. Danke
    • Eine entsprechende Antwort im Sinne der Logik. Nicht fehlen Blatt, wenn es anders ist. @Suman sollten Sie markieren diese als eine Antwort
    InformationsquelleAutor Tiago Cardoso
  3. 0

    Schauen Sie sich diese links:

    • in der Regel empfehlen wir hinzufügen, auch (zumindest teilweise) den Inhalt von dem link, den Angelegenheiten auf die Frage, daher haben wir Ihre Buchung auch dann gültig, falls ein externer link kaputt.
    InformationsquelleAutor JK0124
Schreibe einen Kommentar