With ActiveSheet.Range("N:N")
   For xxx = 1 To 175
 'soll nur ausgeführt werden, wenn Standort in Datei vorhanden
  Set c = .Find(Standort(xxx))
  Do While c Is Nothing
        Set c = .Find(Standort(xxx))
        xxx = xxx + 1
        'firstAddress = c.Address
     Loop
 
 'Filtern der Spalte # nach Standort und abspeichern der Zeilen in separate 
 ' Datei
    Sheets("Tabelle1").Select
    Sheets("Tabelle1").Copy
    Selection.AutoFilter Field:=14, Criteria1:="<>" + Standort(xxx), _
      Operator:=xlAnd
 
    Rows("2:2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.ShowAllData
    Range("A1").Select
 
    'On Error Resume Next
     ActiveWorkbook.SaveAs Filename:= _
        "test" & Str(xxx) & " " & Standort(xxx) & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
    Range("A1").Select
    Selection.AutoFilter Field:=14
   Next xxx
  End With