Willemvk1975
Gebruiker
- Lid geworden
- 13 sep 2017
- Berichten
- 15
Ik wil een sheet uit het ene werkblad kopieren naar een ander werkblad.
De doelfile moet echter niet 1 specifieke file zijn, maar afhankelijk van iets wat in de tekst van de bronsheet zit.
Zowel de bron file als de doelfile zijn geopend en ik start de macro vanuit de bronfile.
Als cel I2 van de bronfile "R.A1128" bevat, moet de doelfile "C:\Users\wka\Desktop\ExcelTest\Nieuwe map\R.A1128.xlsx" zijn
Ik heb de volgende code:
Wat doe ik fout?
De doelfile moet echter niet 1 specifieke file zijn, maar afhankelijk van iets wat in de tekst van de bronsheet zit.
Zowel de bron file als de doelfile zijn geopend en ik start de macro vanuit de bronfile.
Als cel I2 van de bronfile "R.A1128" bevat, moet de doelfile "C:\Users\wka\Desktop\ExcelTest\Nieuwe map\R.A1128.xlsx" zijn
Ik heb de volgende code:
Code:
Sub Sheetkopie1()
Dim path As String
Dim filename As String
Dim sheetnaam As String
Dim doelfile As String
path = "C:\Users\wka\Desktop\ExcelTest\Nieuwe map\"
filename = Range("I2")
sheetnaam = Range("E1")
doelfile = path & filename & ".xlsx"
ActiveSheet.Name = sheetnaam
ActiveSheet.Copy Workbooks(doelfile).Worksheets(1)
End Sub
Wat doe ik fout?