Een kopie maken van een Excel werkblad

[Verberkmoes]

Ik wil met een macro commando een kopie maken van een Excel werkblad naar een andere werkmap.
Het werkblad staat in een werkmap met de vaste naam A.xls en ik wil het kopieeren naar werkmap X.xls met een variabele naam.
Bij aanvang van het macro commando is de werkmap X de actieve werkmap.
(Werkmap A is ook reeds geopend).
Wie kan mij de coder geven.
Met vriendelijke groet,
Bert Verberkmoes

 

[richard1970]

Beste Verberkmoes,

Pobeer eens de volgende module:

Sub kopieer_helpmij()
    Sheets("test").Copy Before:=Workbooks("x.xls").Sheets(1)
    Sheets("test").Name = "testerdetest"
End sub

Deze code kopieert binnen het actieve bestand (A.xls) werkblad test naar werkmap X.xls en zet het als eerste werkblad neer met de naam testerdetest.

Onderstaande code maakt het iets flexibeler, want je krijgt dan een inputbox waarin je de naam voor het nieuwe werkblad kunt opgeven. Hoef je de macro niet aan te passen.

Sub kopieer_helpmij()
    Dim HelpmijNaam
    Sheets("test").Copy Before:=Workbooks("x.xls").Sheets(1)
    HelpmijNaam = InputBox("Welke naam dient het werkblad te krijgen?")
    Sheets("test").Name = HelpmijNaam
end sub

Er zit geen controle in voor niet toegestane tekens, noch een controle voor het reeds bestaan van een werkblad met de opgegeven naam.

Richard

 

[Wigi]

Er zit geen controle in voor niet toegestane tekens, noch een controle voor het reeds bestaan van een werkblad met de opgegeven naam.

Zoiets

Sub kopieer_helpmij()

    Dim HelpmijNaam As String
    Dim ws As Worksheet
    
    Sheets("test").Copy Before:=Workbooks("x.xls").Sheets(1)
    HelpmijNaam = Application.InputBox("Welke naam dient het werkblad te krijgen?", "Nieuwe naam", "test", Type:=2)
    
    On Error Resume Next
    Set ws = ActiveWorkbook.Sheets("test")
    
    If Err.Number <> 0 Then
        MsgBox HelpmijNaam & " bestaat al"
    Else
        Sheets("test").Name = HelpmijNaam
    End If
    
    On Error GoTo 0
End Sub

Wigi

 

[Verberkmoes]

Bedankt

Hartelijk dank voor jullie hulp.
Het probleem is opgelost.
Groeten,
Bert Verberkmoes