Finde bestimmte Spalte und selektiere
23.01.2022 16:35:53
Vera
könnt ihr mir helfen. Ich möchte gerne eine bestimmte Spalte in einer Tabelle suchen (Suchen deshalb, weil die Spaltenpositon veränderlich ist)
Wenn sie gefunden wurde, soll die Spalte (nut die Daten ohne Headername) selektiert werden. Falls in der Spalte bereits Filer aktiviert sind, sollen die "ausgeblendeten" Zeilen nicht selektiert werden.
Seht meinen Anfang: Bsp."Eigenschaft 1"
'Position Tabelle: G10:J20
'Posistion Tabellen Header: G10:J10
'Positon Tabellen Body: G11:J20
'Name Tabelle: "Table1"
'Name Zelle/Spalte G10: "Produkt"
'Name Zelle/Spalte H10: "Eigenschaft 1"
'Name Zelle/Spalte I10: "Eigenschaft 2"
'Name Zelle/Spalte J10: "Eigenschaft 3"
Sub Finde_Eigenschaft_1()
Dim look As Range
Set look = Range("G10:J10").Find(What:="Eigenschaft 1")
ActiveSheet.ListObjects("Table1").ListColumns("?").Range.Select
'Anschließend soll der "Range" der kompletten Spalte exkl. Headerzelle, Filter ("Eigenschaft") selektiert werden
End Sub