Office: Autofilter durch eingabe in Textbox

kryox · 25. Januar 2016

Hallo zusammen,

nach eingabe in ein Textfeld soll je nach dem ob eine Zahl oder ein Text eingegeben wird in einer anderen Spalte ein Filter gesetzt werden.

das klappt soweit ganz gut.. zumindest bei eingabe von Worten

In Spalte 10 steht unter anderem HONIG.. wenn ich "ONI", "HO", usw. eingebe erscheint im Autofilter auch HONIG.. alles super *Smilie

Bei der Eingabe von Zahlen siehts leider anders aus *frown.gif*
Leider funktioniert es auch nicht mit Criteria1="*" & x "*".. dann bekomm ich nämlich gar kein ergebnis *frown.gif*

weiß jemand wo das problem liegt?

Code:

Private Sub TextBox1_Change()
Dim x
x = TextBox1.Value
If x = "" Then
Call filter
Exit Sub
End If
If IsNumeric(x) Then
ActiveSheet.Range("$A$7:$BX$800").AutoFilter Field:=8, Criteria1:=x, Operator:=xlAnd
ElseIf Application.IsText(x) Then
ActiveSheet.Range("$A$7:$BX$800").AutoFilter Field:=10, Criteria1:="*" & x & "*", Operator:=xlAnd
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank schonmal!

:)

R J · 27. Januar 2016

Hi kryox,

Code:

Criteria1:="=" & x
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kryox · 27. Januar 2016

Hallo RJ,

das ändert leider garnichts.

Mein Code funktioniert, wenn ich die komplette Nummer angebe - egal ob mit Criteria1:="=" & x oder mit Criteria1:=x

Beispiel:

In Spalte 8 stehen folgende werte:
55123
55124
55125
55222

wenn ich "55123" (komplett) in die Textbox eingebe, wird auch die korrekte Zeile gefiltert.

ich hätte gerne, dass bereits wenn "5512" in der Textbox steht alle Ergebnisse außer 55222 angezeigt werden.

Vielen Dank schonmal *Smilie

Beverly · 27. Januar 2016

Hi,

dazu müsstest du filtern nach

Code:

Criteria1:=">=" & ...., Operator:=xlAnd, Criteria2:="=" & _
Left(Range("C1"), Len(Range("C1")) - 1) & Evaluate("=REPT(0," & Len(Range("C1")) - 2 & ")"), _
Operator:=xlAnd, Criteria2:="

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kryox · 27. Januar 2016

Hallo Beverly,

Code:

Private Sub TextBox1_Change()
Dim x
x = TextBox1.Value
Dim lngZahl As Long
lngZahl = (Left(x, Len(x) - 1) + 1) & Evaluate("=REPT(0," & Len(x) - 2 & ")")
ActiveSheet.Range("$A$7:$BX$800").AutoFilter Field:=8, Criteria1:=">=" & _
Left(x, Len(x) - 1) & Evaluate("=REPT(0," & Len(x) - 2 & ")"), _
Operator:=xlAnd, Criteria2:="
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

R J · 27. Januar 2016

hi kyrox,

bei zahlen lassen sich keine Platzhalter verwenden. Da musst Du mit Vergleichsoperatoren ( , = , >= usw) arbeiten.
Wenn Du Platzhalter verwenden willst, musst Du die Spalte als Text formatieren.

Beverly · 27. Januar 2016

Dann lade doch mal eine Beispielmappe hoch.

kryox · 27. Januar 2016

Hallo RJ,

Sorry aber ich versteh nicht genau. Was meinst du mit Platzhalter?

Die Spalte als Text zu formatieren ist kein Problem, leider funktioniert Criteria1="*" & x & "*" dann auch nicht *frown.gif*

kryox · 27. Januar 2016

anbei die datei..

bei eingabe von buchstaben funktionierts,.. bei zahlen leider nicht *frown.gif*

Beverly · 27. Januar 2016

Du könntest für die Spalte 8 mit Platzhaltern wie folgt operieren:

Code:

Sub Filtern()
Dim lngEnde As Long
Dim lngStart As Long
Dim intWdh As Integer
If IsNumeric(Val(Range("C1"))) Then
intWdh = Len(Range("C1")) - Len(Application.Substitute(Range("C1"), "*", ""))
lngStart = Application.Substitute(Range("C1"), "*", "")
lngEnde = lngStart + 1
lngStart = Application.Substitute(Range("C1"), "*", "0")
lngEnde = lngEnde & Evaluate("=REPT(0," & intWdh & ")")
ActiveSheet.Range("$A$7:$BX$800").AutoFilter Field:=8, Criteria1:=">=" & lngStart, _
Operator:=xlAnd, Criteria2:="

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kryox · 27. Januar 2016

Vielen dank für deine Mühen Beverly aber leider klappt das auch nicht *frown.gif*

Kannst du mit der Beispielmappe was anfangen?

Beverly · 27. Januar 2016

Angewendet auf deine Mappe:

Code:

Private Sub TextBox1_Change()
Dim lngEnde As Long
Dim lngStart As Long
Dim intWdh As Integer
If TextBox1.Value = "" Then
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Exit Sub
End If
If IsNumeric(Val(TextBox1.Value)) Then
intWdh = Len(TextBox1.Value) - Len(Application.Substitute(TextBox1.Value, "*", ""))
lngStart = Application.Substitute(TextBox1.Value, "*", "")
lngEnde = lngStart + 1
lngStart = Application.Substitute(TextBox1.Value, "*", "0")
lngEnde = lngEnde & Evaluate("=REPT(0," & intWdh & ")")
ActiveSheet.Range("$A$7:$J$20").AutoFilter Field:=10
ActiveSheet.Range("$A$7:$J$20").AutoFilter Field:=8, Criteria1:=">=" & lngStart, _
Operator:=xlAnd, Criteria2:="

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kryox · 27. Januar 2016

Klappt super!! Danke!..

leider nur mit zahlen.

Bei eingabe eines buchstaben bekomm ich allerdings wieder einen laufzeitfehler 13 in folgender zeile:

Code:

lngStart = Application.Substitute(TextBox1.Value, "*", "")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sorry für die umstände *frown.gif*

Beverly · 27. Januar 2016

Code:

Private Sub TextBox1_Change()
Dim lngEnde As Long
Dim lngStart As Long
Dim intWdh As Integer
Dim lngFehler As Long
If TextBox1.Value = "" Then
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Exit Sub
End If
If IsNumeric(Val(TextBox1.Value)) And Val(TextBox1) > 0 Then
intWdh = Len(TextBox1.Value) - Len(Application.Substitute(TextBox1.Value, "*", ""))
On Error Resume Next
lngStart = Application.Substitute(TextBox1.Value, "*", "")
lngFehler = Err.Number
On Error GoTo 0
If lngFehler = 0 Then
lngEnde = lngStart + 1
lngStart = Application.Substitute(TextBox1.Value, "*", "0")
lngEnde = lngEnde & Evaluate("=REPT(0," & intWdh & ")")
ActiveSheet.Range("$A$7:$J$20").AutoFilter Field:=10
ActiveSheet.Range("$A$7:$J$20").AutoFilter Field:=8, Criteria1:=">=" & lngStart, _
Operator:=xlAnd, Criteria2:="

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kryox · 27. Januar 2016

JUHUUU.... vielen dank! *Smilie

Office: Autofilter durch eingabe in Textbox

Autofilter durch eingabe in Textbox

Autofilter durch eingabe in Textbox

Autofilter durch eingabe in Textbox

Autofilter durch eingabe in Textbox

Autofilter durch eingabe in Textbox

Autofilter durch eingabe in Textbox - Similar Threads - Autofilter eingabe Textbox

VBA Autofilter mit Zahlen!

Bilder in Zelle mit Autofilter mitverschieben!

PDF erstellen/Autofilter

Autofilter Datum heute

Like im Autofilter möglich

Autofilter Daten auslesen

Makro Problem nach Wörtern filtern und Zeilen löschen