Goede morgen Theo,

Ik heb een eenvoudig voorbeeldje gemaakt.
In "Verrekening" staat de macroknop die het blad "Eigen" moet kopieren en opslaan als "Eigen_25", en dit liefst met een teller, dus iets als "Eigen_25.01, Eigen_25.02...",
of misschien beter en gemakkelijker, inplaats van een teller de dagdatum.

Hopelijk heb ik me nu iets duidelijker uithgedrukt. 

Hallo JeanPierre,

geen probleem. Bekijk het morgen of zo maar op je gemak. Of je (in je eerste post) gemaakte code werkt betwijfel ik toch. Ze maakt wel nieuwe werkboeken aan, dat wel.


Vergeet niet te beginnen met een 0 in cel "X1" van je eerste werkblad te zetten.
Als je een nieuw (copy) van het laatste werkblad wil aanmaken, selecteer dan je laatste werkblad, anders krijg je foutmeldingen)
Met onderstaande code (in een module te plaatsen *) zou het wel moeten lukken.
Zet de volgende macro in de Module en activeer de Macro:

Sub KopieerWerkblad()
   
    a = Range("X1").Value + 1
   
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim nieuwWs As Worksheet

    Set wb = ThisWorkbook
    Set ws = wb.Sheets("Eigen")

    ws.Copy After:=wb.Sheets(wb.Sheets.Count)

    Set nieuwWs = wb.Sheets(wb.Sheets.Count)
    nieuwWs.Name = "Eigen_" & a
    Range("X1") = a
    ThisWorkbook.Save

End Sub
Dat werkt hier.

* Module aanmaken:
   Open Excel en druk op ALT + F11 om de Visual Basic for Applications (VBA) editor te openen.
   Klik op Invoegen in de menubalk en selecteer Module om een nieuwe module toe te voegen.

SoftAid              

JeanPierre,

Je wilt dat werkblad kopieren en plakken in hetzelfde werkboek met oplopende namen, klopt dit?

dus blad1, Blad2, enzovoorts.


SoftAid              

Hallo JeanPierre,


Omdat je over de naam van een werkboek gaat, zal je in het betreffende werkboek een teller moeten plaatsen, en in de macro gebruiken om naar die cel te verwijzen.
Veronderstel dat we cel X1 gebruiken voor de teller:  0

Dan wordt de macro:

Sub Kopie1()

    a = Sheets("Eigen").Range("X1").Value + 1   ' a wordt hier telkens je de macro uitvoert met 1 verhoogd.
    ActiveWorkbook.SaveAs Filename:="D:\0001_Map_Eigen\Beheer\Eigen" & a & ".xlsm"
    Range("X1") = a                         'De cel X1 aanpassen
    ActiveWorkbook.Close
End Sub
Kijk eens of dit is wat je wenst.

Theo

SoftAid