Hallo:)

ich bastel gerad an einem Userform, welches mir über Textfelder on the Fly den Autofilter für bestimmte Spalten anwenden soll:

Private Sub CommandButton1_Click()
Me.Hide
End Sub

Private Sub TextBox1_Change()
If Len(TextBox1.Value) = 0 Then
    Tabelle1.AutoFilterMode = False

Else
If Tabelle1.AutoFilterMode = True Then
    Tabelle1.AutoFilterMode = False
End If
Tabelle1.Range("a1:c" & Rows.Count).AutoFilter field:=1, Criteria1:="*" & TextBox1.Value & "*"

End If

End Sub

Private Sub TextBox2_Change()
If Len(TextBox2.Value) = 0 Then
    Tabelle1.AutoFilterMode = False

Else
If Tabelle1.AutoFilterMode = True Then
    Tabelle1.AutoFilterMode = False
End If
Tabelle1.Range("a1:z" & Rows.Count).AutoFilter field:=8, Criteria1:="*" & TextBox2.Value & "*"

End If

End Sub

Wenn ich jetzt nur die  Sub TextBox1_Change

als Routine Starte funktioniert alles wunderbar mit dem Filtern einer Spalte. Aber sobald im Quelltext die Private Sub TextBox2_Change() mit ins Spiel kommt funktioniert das ganze nur noch bedingt.
Sobald ich den Inhalt von einem der beiden Textfelder lösche zeigt er mir wieder alle Datensätze in der Tabelle an obwohl der andere noch gesetzt ist.

Als Lösung hätte ich natürlich gern, dass wenn ich in Textbox1 "sch" angebe er mir nur datensätze die "sch" enthalten auswirft und wenn zusätzlich Textbox2 mit "aha"gefüllt wird alle Datensätze die "sch" im Namen haben und VON DIESEN "aha" in der Email oder Spalte 8 haben...

Lange Rede kurzer Sinn- ich denke ihr wisst was ich meine ;)
Mega Cool wäre natürlich auch wenn man über ne Checkbox noch sagen könnte ob nur die Schnittmenge von Textbox1 und Textbox 2 gefiltert werden sollen oder alle Datensätze angezeigt werden, welche eins der beiden Attribute erfüllen... Aber will jetzt ja auch nicht gleich zu anspruchsvoll werden:)

Desweiteren werden dann einige dieser Textfelder anfallen. Macht es da Sinn das ganze ala Funktionen oder so zu optimieren?

Danke für Eure Hilfe
Ingo