VBA Autofilter Tabelle
09.04.2020 08:57:06
Basti
ich habe eine kleines Problem bei einem Autofilter über VBA und wäre sehr dankbar für Eure Hilfe. Ich habe hier im Forum zwar schon einen guten Lösungsansatz gefunden, der funktioniert aber noch nicht ganz bei meinem Beispiel.
Folgendes Szenario:
Ich habe eine Tabelle (beispielhaft mit verschiedenen Artikeln) im Blatt "Tabelle2". Diese soll _ anhand von den Kriterien im Blatt "Tabelle1" Spalte A gefiltert werden. Hierzu habe ich schon den folgenden Code hier im Forum gefunden:
Sub Filtern()
Dim LR As String, Arr
Dim TB2, Sp As Integer, EZ As Integer
Set TB2 = Sheets("Tabelle2")
Sp = 1 ' Spalte A
EZ = 1 ' ab Zeile1
With Sheets("Tabelle1")
LR = .Cells(.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
Arr = WorksheetFunction.Transpose(.Range(.Cells(EZ, Sp), .Cells(LR, Sp)))
End With
If TB2.AutoFilterMode Then TB2.AutoFilterMode = False ' Autofilter ausschalten
TB2.Range("$A:$G").AutoFilter Field:=1, _
Criteria1:=Array(Arr), Operator:=xlFilterValues
End Sub
Solange die Kriterien einer Textfolge entsprechen (z.B. a10) funktioniert der Code wunderbar - sobald das Kriterium jedoch eine reine Zahl ist, wird die Zeile nicht gefiltert.
Hat jemand eine Idee, wie der Code hierzu umgebaut werden muss?
Viele Grüße
Basti