|  
                                             
	Hallo, 
	  
	wenn du nur in einer Spalte suchen möchtest, musst du wohl über Auswahl, also Selection, gehen. 
	  
	hab das gerade mal aufgezeichnet. 
    Columns("E:E").Select
    Selection.Find(What:="all", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Selection.FindNext(After:=ActiveCell).Activate
    Selection.FindNext(After:=ActiveCell).Activate
	  
	Es geht aber nicht 
	Columns("E:E").Selection.Find(What:="all", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate 
	  
	  
     |