Goedemorgen!

Ik ben momenteel bezig met het bouwen van het een macro welke mij in staat stelt om alle afzonderlijke werkbladen (stuk of 15) op te slaan als losse bestanden. In de macro is het van belang om onderscheid te kunnen maken tussen de klantnaam en datum (de bestanden komen in een daarvoor bestemde map). Het is mij inmiddels gelukt om de macro zo te vormen dat deze het huidige tabblad opslaat, echter lukt het me niet deze zo te maken dat de macro dit bij alle tabbladen in één keer doet. De macro is nu als volgt:

Sub Test()
Dim sBestandsnaam As String
Dim sPadnaam As String

sBestandsnaam = Range("H2").Value & "-" & Format(Date, "dd-mm-yyyy") & ".xls"
sPadnaam = "\\cli-sd\sd0357\037032\New folder\ROTS data gegevens\Dealerbestanden\"

    ActiveSheet.Copy
    ActiveSheet.SaveAs Filename:=sPadnaam & sBestandsnaam
    ActiveWorkbook.Close

End Sub


Ik dacht zelf aan het volgende:

Sub Test()
Dim sBestandsnaam As String
Dim sPadnaam As String

sBestandsnaam = Range("H2").Value & "-" & Format(Date, "dd-mm-yyyy") & ".xls"
sPadnaam = "\\cli-sd\sd0357\037032\New folder\ROTS data gegevens\Dealerbestanden\"

Sheets("Blue").Select
ActiveSheet.Copy
ActiveSheet.SaveAs Filename:=sPadnaam & sBestandsnaam
ActiveWorkbook.Close

Sheets("Doo").Select
ActiveSheet.Copy
ActiveSheet.SaveAs Filename:=sPadnaam & sBestandsnaam
ActiveWorkbook.Close

etc. etc.

Echter wordt nu alleen het tabblad "Blue" opgeslagen en krijg ik daarna de melding dat het bestand al bestaat en of ik deze wil vervangen. Ik denk dat dit probleem zich voordoet door het gebruik van ActiveSheet. Ik kom er alleen niet uit.

Is er iemand die mij kan helpen?

Trigz

Hier kan ASAP Utilities mogelijk een oplossing bieden.
Dit is een add-in die heel veel bewerkingen kan vereenvoudigen.

https://www.asap-utilities.com/asap-utilities-excel-tools-tip.php?tip=233&utilities=20&lang=nl_nl

Dank voor deze opmerking, alleen zijn wij hier niet gemachtigd zomaar dingen te installeren. Ik hoop dat er een formule-technische oplossing voor is  

@ Haije,
Het goede spoor is alvast gevonden, maar binnen de lus (hier dus 14 keer) gebeurt telkens hetzelfde waardoor nog steeds slecht 1 tabblad zal gekopieerd worden.

@Trigz,
Ik neem maar even aan dat ELK tabblad uit je bestand moet gekopieerd worden (als dat niet zo is valt dat met wat aanpassen ook wel op te lossen), en dat de naam OVERAL in H2 staat (?).
In dat geval zou je met onderstaande code een variabel aantal tabbladen moeten verwerkt krijgen :
Sub Test()
Application.ScreenUpdating = False
Dim sBestandsnaam As String
Dim sPadnaam As String
sPadnaam = "\\cli-sd\sd0357\037032\New folder\ROTS data gegevens\Dealerbestanden\"
For t = 1 To Sheets.Count
    With Sheets(t)
        .Select
        .Copy
        sBestandsnaam = .Range("H2").Value & "-" & Format(Date, "dd-mm-yyyy") & ".xlsx"
        ActiveSheet.SaveAs Filename:=sPadnaam & sBestandsnaam
        ActiveWorkbook.Close
    End With
Next t
End Sub

Trigz,

Een dankwoordje is heus niet nodig, maar het zou wel fijn zijn als we mochten vernemen of je hier afdoend geholpen bent...