Thema Datum  Von Nutzer Rating
Antwort
01.12.2020 11:44:11 Erich
NotSolved
Blau if then in gefilterter Tabelle
 06.12.2020 03:10:13 Werner
NotSolved
06.12.2020 09:40:52 Gast47210
NotSolved
06.12.2020 12:53:06 Werner
NotSolved
09.12.2020 23:04:11 Erich
NotSolved
11.12.2020 13:51:09 Werner
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
06.12.2020 03:10:13		 Views:
600		 Rating:
     
Antwort:
  Ja
Thema:
if then in gefilterter Tabelle

Hallo,

meinst du so was?

Sub ausblenden()
Dim raFund As Range

With ThisWorkbook.Worksheets("Daten Quali-Matrix")
    Worksheets("Qualifikation-Suche").Rows("12:100").Hidden = False
    Set raFund = .Columns("E").Find(what:="Mustername 1", LookIn:=xlValues, lookat:=xlWhole)
    Worksheets("Qualifikation-Suche").Rows("12:15").Hidden = Not raFund Is Nothing
    Set raFund = .Columns("E").Find(what:="Mustername 2", LookIn:=xlValues, lookat:=xlWhole)
    Worksheets("Qualifikation-Suche").Rows("17:20").Hidden = Not raFund Is Nothing
    Set raFund = .Columns("E").Find(what:="Mustername 3", LookIn:=xlValues, lookat:=xlWhole)
    Worksheets("Qualifikation-Suche").Rows("22:25").Hidden = Not raFund Is Nothing
End With

Set raFund = 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
01.12.2020 11:44:11 Erich
NotSolved
Blau if then in gefilterter Tabelle
 06.12.2020 03:10:13 Werner
NotSolved
06.12.2020 09:40:52 Gast47210
NotSolved
06.12.2020 12:53:06 Werner
NotSolved
09.12.2020 23:04:11 Erich
NotSolved
11.12.2020 13:51:09 Werner
NotSolved