Tabellenblättern einzeln speichern / unterschiedli
01.06.2017 13:06:59
Marcel
ich bin kompletter Neuling in VBA und möchte gerne bestehende Tabellenblätter in einer Excel Arbeitsmappe in einzelne Tabellen speichern, jedoch jeweils an einen eigenen unterschiedlichen Pfad. Es gibt 8 unterschiedliche Blätter und 8 unterschiedliche Pfade.
Alle Tabellenblätter an einen Pfad habe ich wie folgt gelöst.
Wie könnte man diesen jetzt umbauen?
Herzlichen Dank.
Sub alle_Tab_als_Datei()
Dim neuname As String
Dim pfad As String
Dim i As Integer
For i = 2 To ActiveWorkbook.Sheets.Count
neuname = Sheets("Upload").Range("A11") & " " & Sheets(i).Name
pfad = "C:\Users\marcel.siebert\Desktop\"
Sheets(i).Copy
ActiveWorkbook.SaveAs pfad & neuname
ActiveWorkbook.Close
Next
End Sub
Anzeige