Thema Datum  Von Nutzer Rating
Antwort
20.03.2020 20:29:33 Dominic
NotSolved
Blau Mehrere Sheets in Spalte durchsuchen und fallweise ausblenden
 20.03.2020 20:53:13 AlterDresdner
NotSolved
20.03.2020 21:42:27 Gast50163
NotSolved
21.03.2020 12:35:18 AlterDresdner
NotSolved
21.03.2020 16:39:56 Dominic
NotSolved
21.03.2020 18:18:34 AlterDresdner
Solved

Ansicht des Beitrags:
Von:
AlterDresdner		 Datum:
20.03.2020 20:53:13		 Views:
535		 Rating:
     
Antwort:
  Ja
Thema:
Mehrere Sheets in Spalte durchsuchen und fallweise ausblenden

Hallo Dominic,
Du hast fast immer auf Activesheet referenziert, dann macht er das halt so.

ungetestet:

For Each wks In ActiveWorkbook.Worksheets
with wks'damit man nicht laufend wks. schreiben muss
    Select Case .Name
        'in diesen Tabellenblättern nicht suchen
      Case  "Offerte"
        'MsgBox "Offerte bleibt eingeblendet"
      Case  "Gesamtkosten"
        'MsgBox "Gesamtkosten bleiben eingeblendet"
      Case Else
        .Unprotect Password:="pass"
        For Each Z In .Columns(SP).SpecialCells(xlCellTypeConstants, 1)
            Select Case Z
                Case 0, "0"
                     
                Case Else
                    PriceSet = True
            End Select
        Next
        .Protect Password:="pass"
        If PriceSet = False Then
            .Visible = False
            'MsgBox "Blatt" & .Name & "Weist keine Werte >0 auf"
            PriceSet = False
        End If
    End Select
 end with
Next

Gruß der AlteDresdner

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
20.03.2020 20:29:33 Dominic
NotSolved
Blau Mehrere Sheets in Spalte durchsuchen und fallweise ausblenden
 20.03.2020 20:53:13 AlterDresdner
NotSolved
20.03.2020 21:42:27 Gast50163
NotSolved
21.03.2020 12:35:18 AlterDresdner
NotSolved
21.03.2020 16:39:56 Dominic
NotSolved
21.03.2020 18:18:34 AlterDresdner
Solved