Thema Datum  Von Nutzer Rating
Antwort
20.03.2020 20:29:33 Dominic
NotSolved
20.03.2020 20:53:13 AlterDresdner
NotSolved
20.03.2020 21:42:27 Gast50163
NotSolved
Blau Mehrere Sheets in Spalte durchsuchen und fallweise ausblenden
 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:
21.03.2020 12:35:18		 Views:
497		 Rating:
     
Antwort:
  Ja
Thema:
Mehrere Sheets in Spalte durchsuchen und fallweise ausblenden

Hallo Dominic,
nun aber:

Sub UnbenötigteModulregisterAusblenden()
Const passwort = ""
  Dim strErgebnis As String, ZeileTitelErgebnis As Long
  Dim wks As Worksheet, rngSuchbereich As Range
   
  Dim SP As Integer, CNT As Integer, LR As Double, Zeile
  SP = 2 'Spalte B, damit auch Produkte zum Preis 0.00 angezeigt werden!
  Dim PriceSet As Boolean
  PriceSet = False
   
ActiveWorkbook.Unprotect Password:=passwort
 
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:=passwort
        For Zeile = 1 To WorksheetFunction.Max(2, .Cells(Rows.Count, SP).End(xlUp).Row)
          If IsNumeric(.Cells(Zeile, SP)) And .Cells(Zeile, SP).Value <> 0 Then
            PriceSet = True
            Exit For
          End If
        Next Zeile
        .Protect Password:=passwort
        If PriceSet = False Then
            .Visible = False
            'MsgBox "Blatt" & .Name & "Weist keine Werte >0 auf"
            PriceSet = False
        End If
    End Select
 End With
Next
Sheets("Staffelpreisberechnung").Visible = False
Sheets("PreisvergleichMitbewerber").Visible = False
ActiveWorkbook.Protect Password:=passwort
End Sub

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