Sub alle_Tab_als_Datei()
Dim neuname As String
Dim pfad As String
Dim i As Integer
Dim pfade
pfade = Array(0, 0, "C:\Users\marcel.siebert\Desktop\Region1\", _
"C:\Users\marcel.siebert\Desktop\Region2\", _
"C:\Users\marcel.siebert\Desktop\Region3\", _
"C:\Users\marcel.siebert\Desktop\Region4\", _
"C:\Users\marcel.siebert\Desktop\Region5\", _
"C:\Users\marcel.siebert\Desktop\Region6\", _
"C:\Users\marcel.siebert\Desktop\Region7\", _
"C:\Users\marcel.siebert\Desktop\Region8\")
For i = 2 To ActiveWorkbook.Sheets.Count
neuname = Sheets("Upload").Range("A11") & " " & Sheets(i).Name
pfad = "C:\Users\xxx.xxx\Desktop\"
Sheets(i).Copy
ActiveWorkbook.SaveAs pfade(i) & neuname
ActiveWorkbook.Close
Next
End Sub