macro rename blad en als die al bestaat overschrijven

[arienlans]

Ik heb een macro gemaakt om een werkblad te kopieeren en te hernoemen in een ander bestand.

Sub copyblad()
    Workbooks.Open Filename:= _
        "M:\documenten\Personeel\Uren\2012\Scholieren\scholieren.xlsx"
    Windows("test.xlsm").Activate
    Sheets("betaling").Copy After:=Workbooks("scholieren.xlsx").Sheets(9)
    Sheets("betaling").Name = "betaling"
    Selection.Copy
    Sheets("betaling").Name = Range("a1")
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

kan iemand mijn helpen?

ik wil als het werkblad al bestaat dit werkblad overschrijven.

Mvg
Arien

 

[Roncancio]

Onderstaande code is een uitbreiding van je code en deze code controleert na het openen van scholieren.xlsx of het bestand een werkblad heeft genaamd betaling.
Indien dat zo is dan wordt dat werkblad verwijderd!!!!
Vervolgens wordt het andere werkblad betaling in het bestand scholieren geplaatst.

Sub copyblad()
On Error Resume Next
Dim WS As Worksheet

    Workbooks.Open Filename:= _
        "M:\documenten\Personeel\Uren\2012\Scholieren\scholieren.xlsx"
    Set WS = Workbooks("scholieren").Sheets("betaling")
    
    If Not WS Is Nothing Then

        Application.DisplayAlerts = False
        Workbooks("scholieren").Sheets("betaling").Delete
        Application.DisplayAlerts = True
    
    End If
    
    Windows("test.xlsm").Activate
    Sheets("betaling").Copy After:=Workbooks("scholieren.xlsx").Sheets(9)
    Sheets("betaling").Name = "betaling"
    Selection.Copy
    Sheets("betaling").Name = Range("a1")
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

Voor de zekerheid zou ik wel kopie bewaren van het bronbestand, mocht er dingen misgaan.

Met vriendelijke groet,


Roncancio

 

[arienlans]

het gaat niet helemaal goed

ik wil het werkblad betalen kopieeren als waarde naar een ander bestand.

ik wil dat het tabblad de naam aanneem van cel b1

als het tabblad met de naam van b1 al bestaat moet die hem overschrijven

en daarna het bestand opslaan.

nu krijg ik dat achter de naam van het tabblad staat er (1) die wil ik niet hebben

Ariën

 

[Roncancio]

De vraag wordt hier ook gesteld.

Met vriendelijke groet,


Roncancio