Autofilter
05.02.2015 20:28:00
Andreas.R.
ich habe in einer Tabelle einen Autofilter eingebaut. Für eine komfortablere Benutzung habe ich _ über einige Spalten eine Checkbox (für Volltextsuche) und eine Textbox für den Suchbegriff gesetzt und steuere so den Autofilter per VBA:
Private Sub TextBoxHoe_Change()
If TextBoxHoe.Text = "" Then
If ActiveSheet.FilterMode Then 'ActiveSheet.ShowAllData
' Application.Run "FilterEntfernen"
Selection.AutoFilter Field:=4, Criteria1:="*", Operator:=xlAnd
End If
Else
If ActiveSheet.CheckBoxVtHoe = False Then
Selection.AutoFilter Field:=4, Criteria1:="=" _
& Me.TextBoxHoe & "*", Operator:=xlAnd
Else
Selection.AutoFilter Field:=4, Criteria1:="**" _
& Me.TextBoxHoe & "*", Operator:=xlAnd
End If
ActiveWindow.SmallScroll Up:=5000
End If
End Sub
Private Sub TextBoxHoe_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = vbKeySpace Then KeyAscii = 0
End Sub
Das fuktioniert soweit auch gut, solange Texte in den Spalten stehen.
Jetzt gibt es aber Spalten mit Zahlen, die den Autofilter automatisch in einen Zahlenfilter ändern. Hier geht dann nichts mehr. Auch eine Änderung der Zellenformate in Text hat nichts gebracht.
https://www.herber.de/bbs/user/95589.xlsm