Alle ListObject-Zeilen ausblenden, aber die ausgewählte

Question

Ich suche nach VBA-Code, der alle Zeilen in einer Tabelle mit Ausnahme der ausgewählten Zeile ausblenden wird. Im folgenden Bild ist MSFT ausgewählt, und ich möchte, dass sich alle anderen ListRows verstecken.

Wie würden Sie das tun?

Answer 1

Wenn Sie eine Liste für Ihre Tabelle verwenden, sollten folgende Arbeiten:

Sub HideAllListRowsExceptTheActiveOne() 
    ActiveCell.ListObject.DataBodyRange.Rows.Hidden = True 
    ActiveCell.Rows.Hidden = False 
End Sub 

Sie dieses Unter laufen könnte eine benutzerdefinierte Taste, Kontextmenüpunkt usw.