|
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
|