Hallo AlterDresdner

Danke, das funktioniert auch. Zwischenzeitlich habe ich aber eine noch einfachere Lösung gefunden, die in die ähliche Richtung abzielt wie deine. Da in der Spalte B ja eigentlich nur geprüft werden soll, ob dort nur 0 steht oder Zahlen > 0 und der Text zu ignorieren ist, funktioniert auch ein einfaches Zählen aller Werte in der Spalte B (das machst du ja auch). Mein Ansatz nutzt aber die Worksheet.Funktion.Sum, welche den gesamten Code deutlich verschlankt (ich habe noch immer einige Zeilen Kommentare mit Debug-Funktionen gesetzt, nicht verwirren lassen ;) ):

Sub UnbenötigteModulregisterAusblenden()
  Dim strErgebnis As String
  Dim wks As Worksheet
  'Dim ssum As Long
  
  ActiveWorkbook.Unprotect Password:="pass"

    For Each wks In ActiveWorkbook.Worksheets
    With wks
            'MsgBox .Name
        Select Case .Name
            'in diesen Tabellenblättern nicht suchen
          Case "Offerte"
            'MsgBox "Offerte bleibt eingeblendet"
          Case "Gesamtkosten"
            'MsgBox "Gesamtkosten bleiben eingeblendet"
          Case Else
             'ssum = Application.WorksheetFunction.Sum(.Range("B:B"))
             'MsgBox "Das Blatt " & .Name & " weist die Summe " & ssum & " auf."
            ' Prüfen ob Einzelne Module / Objekte bestellt werden auf dem Blatt
            If Application.WorksheetFunction.Sum(.Range("B:B")) = 0 Then
                .Visible = False
                'MsgBox "Blatt" & Application.ActiveSheet.Name & "Weist Werte > 0 auf"
            End If
        End Select
    End With
    Next
    Sheets("Staffelpreisberechnung").Visible = False
    Sheets("PreisvergleichMitbewerber").Visible = False
    ActiveWorkbook.Protect Password:="pass"
End Sub

Aber Danke für deinen Input, auch da konnte ich wieder einiges lernen :)