AdvancedFilter mit *
10.07.2021 16:35:15
Thomas
ich filtere mit den AdvancedFilter meine Daten:
If Not Intersect(Target, Range("a2:i2")) Is Nothing Then
Call DB_Filtern
End If
Sub DB_Filtern(Optional ByRef avarDatensatz As Variant)
On Error Resume Next
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("DB_Filter")
Intersect(.UsedRange.EntireColumn, .Rows("5:" & .Rows.Count)).Clear
' .Range("A2:L2").Value = avarDatensatz
If ThisWorkbook.Worksheets("DB").Range("A1").CurrentRegion.Rows.Count > 1 Then
ThisWorkbook.Worksheets("DB").Range("A1").CurrentRegion.Resize(, 13).AdvancedFilter _
xlFilterCopy, .Range("A1:I2"), .Range("A4:l4"), False
End If
End With
Application.ScreenUpdating = True
End Sub
Soweit funktioniert dies auch ganz gut. Mein Problem sind die Zahlen.
Wenn ich z.B. die Spalte F alle Werte die mit einer 6 beginnen sehen möchte, gebe ich in Zelle F2 die 6 ein.
Leider wird dann nicht gefiltert. Auch bei der Eingabe 6* wird nichts gefiltert.
Das Sternchen wird nur bei reinen texten berücksichtigt.
Weiß jemand was ich ändern könnte?
Anbei noch meine Beispieldatei
https://www.herber.de/bbs/user/147037.xlsm
habt schon mal rechtvielen dank für euer Interesse.
mfg thomas