07.07.2019, 11:38
Hallöchen,
eine Filterung ist nur möglich, wenn z.B. in allen Zellen des einzublendenden Bereichs der entsprechende Inhalt steht. Wenn Du z.B. nach UU filtern willst, steht bei Dir recht wenig, da es ja nur 1x im verbundenen Bereich steht.
Für die Programmierung bieten die verbundenen Zellen in Deinem Fall sogar einen Vorteil. Du hast unterschiedlich lange Bereiche und müsstest irgendwie erst Anfang und Ende des jeweiligen Bereiches suchen. Mit den verbundenen Zellen kannst DU einfach feststellen, ob eine Zeile zum entsprechenden Beriech gehört. Ich habe hier mal ein kleines Beispiel, welches allerdings nur auf den UU-Bereich ausgerichtet ist. Du hast ja schon eine Suchfunktion und müssest dann die dort gefundene Zeile statt der von mir fest programmierten Zeile einsetzen, natürlich auch den Schleifenbereich anpassen.
eine Filterung ist nur möglich, wenn z.B. in allen Zellen des einzublendenden Bereichs der entsprechende Inhalt steht. Wenn Du z.B. nach UU filtern willst, steht bei Dir recht wenig, da es ja nur 1x im verbundenen Bereich steht.
Für die Programmierung bieten die verbundenen Zellen in Deinem Fall sogar einen Vorteil. Du hast unterschiedlich lange Bereiche und müsstest irgendwie erst Anfang und Ende des jeweiligen Bereiches suchen. Mit den verbundenen Zellen kannst DU einfach feststellen, ob eine Zeile zum entsprechenden Beriech gehört. Ich habe hier mal ein kleines Beispiel, welches allerdings nur auf den UU-Bereich ausgerichtet ist. Du hast ja schon eine Suchfunktion und müssest dann die dort gefundene Zeile statt der von mir fest programmierten Zeile einsetzen, natürlich auch den Schleifenbereich anpassen.
Zitat:Sub test()
For l = 8 To 80
'Pruefen, ob Zeile im Bereich der verbundenen Zellen
If Intersect(Cells(l, 1), Range(Cells(9, 1).MergeArea.Address)) Is Nothing Then
'Zeile ausblenden
Cells(l, 1).EntireRow.Hidden = True
'wenn nicht im verbundenen Bereich
Else
'Zeile einblenden
Cells(l, 1).EntireRow.Hidden = False
'Ende Pruefen, ob Zeile im Bereich der verbundenen Zellen
End If
Next
End Sub