ich habe hier im Forum diese Makro erhalten.
Soweit alles gut, wenn ich aber z.B. ein Leerzeichen eingebe, hört das Suchen auf.
Beispiel für die Eingabe in der Textbox:
Tischler Schmitz
Tischler "Leertaste" dann Abbruch.
Private Sub TextBox1_Change() Dim lz1&, FI$, Spa&, rFind, x& 'LastZell in Spalte B lz1 = Cells(Rows.Count, "B").End(xlUp).Row FI = ActiveSheet.TextBox1.Text Spa = 3 '1. Spalte zum Filtern If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData With Range("b2:L" & lz1) such: Set rFind = Columns(Spa).Find(What:=FI, After:=Cells(1, Spa), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False) If rFind Is Nothing Then Spa = Spa + 2 If Spa > 10 Then ActiveSheet.TextBox1 = "" '''' MsgBox "Suchbegriff nicht vorhanden!", vbCritical, "Fehler!" Exit Sub End If GoTo such End If If FI = "" Then ''''MsgBox "Kein Suchbegriff vorhanden!", vbCritical, "Fehler!" Else .AutoFilter Field:=Spa - 1, Criteria1:=FI & "*" End If End With End Subwürde mich freuen, wenn man dies ändern könnte,
dank im Voraus,
gr sigrid