Blätter beim Durchlaufen von Blättern ausschließen

Question

Ich wäre für Hilfe mit dem untenstehenden Code dankbar. Ich versuche, Code auf allen Blättern in einer Arbeitsmappe außer drei Blättern auszuführen. Mein untenstehender Code durchläuft alle Registerkarten, aber ich habe nicht herausgefunden, wie ich die drei Blätter überspringen kann.

Sub Worksheet_Loop()

Dim ws As Worksheet

  For Each ws In ThisWorkbook.Worksheets

        Debug.Print ws.Name

    End If
  Next ws

End Sub

Answer 1

Verwenden Sie eine if-Anweisung:

Sub Worksheet_Loop()

Dim ws As Worksheet

  For Each ws In ThisWorkbook.Worksheets
    If ws.name <> "Sheet1" and ws.name <> "Sheet2" And ws.name <> "Sheet3" then
        Debug.Print ws.Name         
    End If
  Next ws

End Sub