With Worksheets("Tabelle1") 'Zellen mit Suchkriterien benennen .Range("F2").Name = "_search_cat" .Range("G2").Name = "_search_sect"
Punkte hatten am Anfang gefehlt.