Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1316to1320
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

erweiterte Autofilterfunktion

erweiterte Autofilterfunktion
24.06.2013 14: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
Anzeige
AW: erweiterte Autofilterfunktion
25.06.2013 13: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

Anzeige
AW: erweiterte Autofilterfunktion
25.06.2013 13: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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige