|  
                                             
	Viiiiiiiiiiielen Dank funktioniert hervorragend! 
	Allerdings hätte ich noch eine ganz kurze Frage. 
	Wie könnte man den folgenden Teil so abändern, dass es auch bedeutet dass das Wort "Autoteile" nur am Anfang der Zelle stehen darf? 
	  
    If InStr(1, Worksheets("Tabelle1").Cells(Zaehler_1, 1).Value, "Autoteile") >= 1 Then  
	Würde nämlich die Funktion gerne noch in einer anderen Tabelle anwenden, wo das Wort wonachgefiltert wird auch zwischen den Zeilen vorkommt 
	  
Es sollte so stehen
Autoteile D:
Reifen
schrauben der Autoteile xx
karosseriefarbstoff 
statt
Autoteile D:
Reifen
schrauben der Autoteile xx
karosseriefarbstoff 
 
	Wenn wir diesen kleinen Haken wegkriegen wäre es suuper 
     |