Filtern mittels Inputbox im Listobject
19.12.2022 13:46:38
Fritz
ich möchte mit dem nachfolgenden Code mein Listobject über eine Inputbox filtern; das funktioniert nur bedingt, es wird immer "0" als Ergebnis ausgeworfen, obwohl der Name definitiv in der Spalte 3 vorhanden ist:
Sub FilterTable()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("BevorstehendeÄnderungen")
Dim table As ListObject
Set table = ws.ListObjects("Table1") ' Table1 ist der Name der Tabelle
Dim name As String
name = InputBox("Geben Sie den Namen ein, nach dem gefiltert werden soll:")
table.Range.AutoFilter Field:=3, Criteria1:=name
End Sub