Thema Datum  Von Nutzer Rating
Antwort
27.01.2020 14:10:25 Sors
NotSolved
27.01.2020 14:20:03 Werner
NotSolved
27.01.2020 14:40:09 Gast62130
NotSolved
27.01.2020 14:45:09 Sors
NotSolved
Rot Alle Zeilen mit bestimmten Triggerwort ausblenden wenn zwei Bedingungen erfüllt sind
 27.01.2020 15:13:10 Werner
*****
NotSolved
27.01.2020 15:38:28 Sors
NotSolved
27.01.2020 16:09:18 Sors
Solved

Ansicht des Beitrags:
Von:
Werner		 Datum:
27.01.2020 15:13:10		 Views:
675		 Rating:
     
Antwort:
  Ja
Thema:
Alle Zeilen mit bestimmten Triggerwort ausblenden wenn zwei Bedingungen erfüllt sind

Hallo,

meinst du so?

Sub ZeilenAusblenden()
Dim raBereich As Range, ws As Worksheet

Application.ScreenUpdating = False

For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Funktionsverzeichnis" Then
        With ws
            For i = 1 To 100
                If .Cells(i, "A") = Worksheets("Funktionsverzeichnis").Cells(i, "B") And UCase(Worksheets("Funktionsverzeichnis").Cells(i, "F")) = "X" Then
                    If raBereich Is Nothing Then
                        Set raBereich = Worksheets("Funktionsverzeichnis").Cells(i, "A")
                    Else
                        Set raBereich = Union(raBereich, Worksheets("Funktionsverzeichnis").Cells(i, "A"))
                    End If
                End If
            Next i
            If Not raBereich Is Nothing Then
                raBereich.EntireRow.Hidden = True
            End If
            Set raBereich = Nothing
        End With
    End If
Next ws

Set raBereich = Nothing
End Sub

Gruß Werner

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
27.01.2020 14:10:25 Sors
NotSolved
27.01.2020 14:20:03 Werner
NotSolved
27.01.2020 14:40:09 Gast62130
NotSolved
27.01.2020 14:45:09 Sors
NotSolved
Rot Alle Zeilen mit bestimmten Triggerwort ausblenden wenn zwei Bedingungen erfüllt sind
 27.01.2020 15:13:10 Werner
*****
NotSolved
27.01.2020 15:38:28 Sors
NotSolved
27.01.2020 16:09:18 Sors
Solved