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              

JeanPierre,

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

dus blad1, Blad2, enzovoorts.


SoftAid              

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 schreef dat je wil dat de macro het tabblad copieert en plakt, maar dat doet hij niet. Je kopieert de hele werkmap.
Mijn laatste macro niet bekeken? Deze kopieert je laatste werkblad naar achteren en geeft het een unieke naam (als je het laatste werkblad selecteert vooralleer de macro uit te voeren, maar dat kan aangepast worden).

Een datum als Teller kan ook, maar hou er dan rekening mee dat je verschillende tabbladen kan aanmaken met dezelfde datum (omdat de tijdwaarde niet getoont wordt, maar er wel in zit, en dus verschillend is en aangemaakt wordt.

Wat zal het wezen... 

SoftAid              

Hallo JeanPierre, je maakt nog steeds nieuwe werkMAPPEN aan, geen werkBLADEN.

Probeer deze macro eens:

Sub KopieerWerkblad_SA()
         
    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_" & Format(Now(), "dd-ww-yy")
   
    ThisWorkbook.Save

End Sub
SoftAid              

dus geen tabbladen bijmaken maar telkens het tablad "Eigen" afzonderlijk opslaan, daarom de telling.

Sorry, had hier overweg gelezen.

Nu, je kan geen werkbladen "apart" opslaan. Een werkblad zit in een map, en dus maak jij steeds een werkMAP aan.

Als dat de bedoeling is (waar ik het nut niet van inzie) dan moet alles anders, natuurlijk.
Maar waarom zou je niet alles in één Werkboek samen houden, in plaats van allemaal verschillende Werkboeken te maken met telkens 1 ander werkblad?

SoftAid              

Ongetest omdat ik het pad niet heb. Maar plak deze 'ns in je workbook en laat 'm lopen...

Sub KopieerSheetNaarNieuwWorkbook()

    Sheets("Eigen").Copy
    With ActiveWorkbook
        .SaveAs "D\:0001_Map_Eigen\Beheer\Eigen_" & Format(Date, "yymmdd"), 52
        .Close
    End With

End Sub