Werblad kopieren met vba

[Doohan]

Geachte helper,

Ik probeer via vba een werkblad "persoonsgegevens" te kopieren uit een bestaand werkboek naar een ander werkboek zodra ik deze open deze handeling moet iedere keer gebeuren. Dus zal excel waarschijnlijk gaan mekkeren dat het blad al bestaat. En dient te worden overschreven

De volgende code heb ik al staan en zal waarschijnlijk door mijn helper aangevuld worden

 Private Sub Workbook_Open()
 
 Workbooks.Open Filename:="F:\Tekenkamer import-export\Overzicht.xlsm"
 
    Sheets("PERSOONSGEGEVENS").Select
    Sheets("PERSOONSGEGEVENS").Copy After:=Workbooks("ELLENTEST-rev2.xlsm"). _
    Sheets(1)
 End Sub

Misschien is het niet nodig om het bestand 1st te openen voor er een kopie van het werkblad gemaakt kan worden dat heb ik eigenlijk nog liever.
bovenstaande code werkt ieder geval niet

Private Sub Workbook_Open()
 
 Workbooks.Open Filename:="F:\Tekenkamer import-export\Overzicht.xlsm"
 
 End Sub

Alvast vriendelijk dank voor de hulp

 

[Elsendoorn2134]

Doohan,

De code

Private Sub Workbook_Open()
Application.DisplayAlerts = False               'Zet meldingen uit
Sheets("PERSOONSGEGEVENS").Delete       'Verwijder tabblad
Application.DisplayAlerts = True                'Zet meldingen aan

Workbooks.Open Filename:="F:\Tekenkamer import-export\Overzicht.xlsm"
 
Sheets("PERSOONSGEGEVENS").Select
Sheets("PERSOONSGEGEVENS").Copy After:=Workbooks("ELLENTEST-rev2.xlsm").Sheets(1)

End Sub

Zou moeten werken. Ik heb je macro iets uitgebreid om de oude gegevens te verwijderen.

Veel Succes.

 

[Doohan]

Dank je Elsedoorn,

Ik heb je code toegepast en krijg de foutmelding

Fout 9 tijdens uitvoering: Het subscript valt buiten bereik.

wat nu?

 

[Doohan]

Beste Elsendoorn2134,

Ik had nog een vraag beantwoord gekregen van jouw dat waren eigenlijk 2 vragen in 1 mijn code ziet er nu zo uit en werkt nietPrivate Sub Workbook_Open()

'Zet meldingen uit

Application.DisplayAlerts = False

Dim HuidigWb As String

HuidigWb = ActiveWorkbook.Name

'Verwijder tabblad

Sheets("PERSOONSGEGEVENS").Delete

'Zet meldingen aan

Application.DisplayAlerts = True

Workbooks.Open Filename:="F:\Tekenkamer import-export\Overzicht.xlsm"

Sheets("PERSOONSGEGEVENS").Select
Sheets("PERSOONSGEGEVENS").Copy After:=Workbooks("ELLENTEST-rev2.xlsm").Sheets(11)

Workbooks(HuidigWb).Activate

End Sub
#

 

[Doohan]

Beste Elsendoorn2134,

Ik had nog een vraag beantwoord gekregen van jouw dat waren eigenlijk 2 vragen in 1 mijn code ziet er nu zo uit en werkt niet#Private Sub Workbook_Open()

'Zet meldingen uit

Application.DisplayAlerts = False

Dim HuidigWb As String

HuidigWb = ActiveWorkbook.Name

'Verwijder tabblad

Sheets("PERSOONSGEGEVENS").Delete

'Zet meldingen aan

Application.DisplayAlerts = True

Workbooks.Open Filename:="F:\Tekenkamer import-export\Overzicht.xlsm"

Sheets("PERSOONSGEGEVENS").Select
Sheets("PERSOONSGEGEVENS").Copy After:=Workbooks("ELLENTEST-rev2.xlsm").Sheets(11)

Workbooks(HuidigWb).Activate

End Sub
#

 

[Doohan]

en nu dan de juiste quote

Private Sub Workbook_Open()

'Zet meldingen uit
    
    Application.DisplayAlerts = False

Dim HuidigWb As String

HuidigWb = ActiveWorkbook.Name

'Verwijder tabblad
    
    Sheets("PERSOONSGEGEVENS").Delete
    
'Zet meldingen aan
    
    Application.DisplayAlerts = True

Workbooks.Open Filename:="F:\Tekenkamer import-export\Overzicht.xlsm"
 
Sheets("PERSOONSGEGEVENS").Select
Sheets("PERSOONSGEGEVENS").Copy After:=Workbooks("ELLENTEST-rev2.xlsm").Sheets(11)

Workbooks(HuidigWb).Activate

End Sub