erweiterte Autofilterfunktion

Forumthread: erweiterte Autofilterfunktion
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: erweiterte Autofilterfunktion

24.06.2013 16:35:46

Ralf

Hallo Forum,
ich habe im Internet einen Code gefunden, mit dem man die Autofilterfunktion sehr schön aufpimpen kann.
Ich habe eine Beispielmappe angehängt.
https://www.herber.de/bbs/user/85998.xlsm
Für die Spalte B funktioniert dies einwandfrei. Probiert es aus mit "1" oder "Test" oder "m" oder "frage".
Nun möchte ich diese Funktion aber auf 2 Spalten anwenden, entweder kombiniert mit den beiden Textfeldern oder unabhängig.
Ich bekomme den Code aber nicht erweitert, so dass dies funktioniert.
Kann mir bei der Lösungsfindung bitte jemand helfen?
Viele Grüße
Ralf

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: erweiterte Autofilterfunktion

25.06.2013 15:11:32

Tino
AW: erweiterte Autofilterfunktion

25.06.2013 15:48:16

Ralf

AW: erweiterte Autofilterfunktion

25.06.2013 15:11:32

Tino

Hallo,
Du musst für jede TextBox den Code einbauen.

Private Sub txtDirektFilter1_Change()
FilterTextBox txtDirektFilter1, 2
End Sub
Private Sub txtDirektFilter2_Change()
FilterTextBox txtDirektFilter2, 1
End Sub
Sub FilterTextBox(objTxTBox As MSForms.TextBox, FILTERFLDNUM&)
Dim af As AutoFilter
Dim rgAf As Range
If blnSkipChange Then Exit Sub
On Error Resume Next
Set af = Me.AutoFilter
If af Is Nothing Then Exit Sub
Set rgAf = af.Range
If Len(CStr(objTxTBox.Value)) > 0 Then
rgAf.AutoFilter Field:=FILTERFLDNUM, Criteria1:="*" & objTxTBox.Value & "*"
Else
rgAf.AutoFilter Field:=FILTERFLDNUM
End If
Set rgAf = Nothing
Set af = Nothing
End Sub

Gruß Tino

AW: erweiterte Autofilterfunktion

25.06.2013 15:48:16

Ralf

Hallo Tino,
optimal. Das funktioniert wie gewünscht.
Das ich es für jede Textbox einbauen muss, war mir klar. Du Umsetzung stellt für mich aber ein Problem dar.
Vielen Dank für die Unterstützung.
Viele Grüße
Ralf

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!