Filter per Makro setzen
12.06.2023 14:25:22
Frank
Liebe Gemeinde,
per Recorder aufgezeichnet:
ActiveSheet.Range("$B$2:$X$54").AutoFilter Field:=5, Criteria1:=Array( _
"10000478-01", "Nummer", "="), Operator:=xlFilterValues
und die Tabelle wird gefiltert, wie ich das gerne möchte.
Im Makro geändert, damit ich per UF und Combobox die Nummer aussuchen kann, nach der gefiltert werden soll:
LS = Sheets.Count
Sheets(LS).Select
SuchString = Chr(34) & Label3.Caption & Chr(34) & ", " & Chr(34) & "Nummer" & Chr(34) & ", " & Chr(34) & "=" & Chr(34)
Sheets(LS).Range("$B$2:$X$54").AutoFilter Field:=5, Criteria1:=Array( _
SuchString), Operator:=xlFilterValues
Nach Aufruf der UF und Auswahl im Dropdown der Combobox sieht der Inhalt der Variablen "SuchString" (über MsgBox, mit MouseOver oder als Ausgabe in Zelle) z.B. so aus:
"10 002 641", "Nummer", "="Leider ist die gefilterte Tabelle leer. Ich kann sehen, dass in der richtigen Spalte gefiltert wurde. Nur dass eben keine Einträge zum Filtern gewählt sind - alle Kästchen leer, auch die für "Nummer" und "leere".
Was mache ich falsch?
Grüsse
Frank