Thema Datum  Von Nutzer Rating
Antwort
Rot if then in gefilterter Tabelle
01.12.2020 11:44:11 Erich
NotSolved
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:
Erich
Datum:
01.12.2020 11:44:11
Views:
773
Rating: Antwort:
  Ja
Thema:
if then in gefilterter Tabelle

Guten Tag

Ich bin auf der suche nach einer Lösung für mein Vorhaben und hoffe ihr könnt mir helfen. Ich muss sagen, dass ich ein absoluter Anfänger in VBA bin.

Ich möchte aus einer gefilterten Tabelle einen bestimmten Namen suchen und wenn der gefunden wurde, dann sollen in einem anderen Tabellenblatt bestimmte Zeilen versteckt werden.

Hier ein Bild der Tabelle: https://i.ibb.co/dM9KvV1/1.png

Ich habe einen VBA Code gefunden. Er funktioniert auch. Nur es gibt 2 Schwierigkeiten.

1. Beim filtern der Tabelle klappt es verständlicherweise nicht mehr, da es Bezug auf Zelle E2 nimmt.

2. Es wird nur in E2 gesucht. Es sollte in der ganzen Spalte gesucht werden, aber nur die sichtbaren/gefilterten  Namen.

Sub ausblenden()
 Dim sh As Worksheet

 Set sh = ThisWorkbook.Sheets("Daten Quali-Matrix")

 With sh


 'Alle Zellen wieder einblenden.

 Sheets("Qualifikation-Suche").Rows("12:100").EntireRow.Hidden = True

  If .Range("E2").Value = "Mustername 1" Then
  Sheets("Qualifikation-Suche").Rows("12:15").EntireRow.Hidden = False
  End If

  If .Range("E2").Value = "Mustername 2" Then
  Sheets("Qualifikation-Suche").Rows("17:20").EntireRow.Hidden = False
  End If

  If .Range("E2").Value = "Mustername 3" Then
  Sheets("Qualifikation-Suche").Rows("22:25").EntireRow.Hidden = False
  End If
  
 End With

 Set sh = Nothing

 End Sub

 

Könnt ihr mir helfen?

 

Vielen dank und bleibt gesund.

Erich


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
Rot if then in gefilterter Tabelle
01.12.2020 11:44:11 Erich
NotSolved
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