Sub StoSpeichernMakro()
    Dim xxx As Integer
    'Hier die Anzahl der Standorte festlegen, für die eine eigene Datei 
    ' erstellt wird
    Dim Standort(175) As String
 
    'Hier einzelne Standorte definieren
    Standort(1) = "Duisburg"
    '...
    Standort(175) = "Gera"
 
With ActiveSheet.Range("N:N")
   For xxx = 1 To 175
 'soll nur ausgeführt werden, wenn Standort in Datei vorhanden. Nicht alle 
 ' Zahlen zwischen 1 und 175 sind belegt.
    Set c = .Find(Standort(xxx))
    If Not c Is Nothing Then
    firstAddress = c.Address
    Do
'Filtern der Spalte 13 nach Standort und abspeichern der Zeilen in separate 
' Datei
    Sheets("Tabelle1").Select
    Sheets("Tabelle1").Copy
    Selection.AutoFilter Field:=13, Criteria1:="<>" + Standort(xxx), _
      Operator:=xlAnd
    Rows("3:3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.ShowAllData
    Range("B1").Select
 
    On Error Resume Next
      ActiveWorkbook.SaveAs Filename:= _
        "test " + Standort(xxx) + ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
'in den Dateinamen hätte ich noch gerne die Nummer xxx, aber mit "+ str(xxx)" 
' klappt es nicht. Wie?
      ActiveWindow.Close
    Range("B1").Select
    Selection.AutoFilter Field:=13
'jetzt meckert der Compiler "next ohne for", aber das steht doch oben. Wie muss 
' ich es umbauen?
   Next xxx
  End With
 
End Sub