Kopieer macro overschrijft alle tabbladen

[peter59]

Hallo,

De gekopieerde gegevens van .Worksheets("Form").Copy worden weg geschreven in Workbooks("Waarnemers formulieren uit Tool.xlsx")
Maar helaas worden alle sheets overschreven ook al is er een nieuwe naam ingevoerd d.m.v. de InputBox.
Dat is niet de bedoeling.
Wat is er fout in onderstaande code?

Sub CopieerEnHernoem()

    Dim iName As String
    
    On Error Resume Next
    iName = InputBox("Voer nieuwe naam in")
    
    If iName <> "" Then
        Workbooks("TEST Tool waarnemingsformulier Q plus.xlsb").Worksheets("Form").Copy _
        After:=Workbooks("Waarnemers formulieren uit Tool.xlsx").Worksheets(Sheets.Count)
        
        On Error Resume Next
        Worksheets("Form").Name = iName
        
        End If
        
End Sub

 

[AD1957]

kijk eens hier.
https://stackoverflow.com/questions/47574430/rename-sheet-while-copy-to-another-file
https://stackoverflow.com/questions...w-workbook-with-rename-sheet-based-cell-value

 

[peter59]

AD1957

Dank voor je respons.
Ik ben helaas een leek v.w.b. VBA.
Ja, iets met de macrorecorder spelen.
M.a.w. gaat dus de aangedragen link mij behoorlijk boven mijn pet.
Dus weet niet wat ik daar mee aan moet.

 

[AD1957]

5 jaar bezig met vba, en binnen 8 min. geef je de moed al op.
Het wordt iets met:

Workbooks("Waarnemers formulieren uit Tool.xlsx").Worksheets(Sheets.Count).Name=iName

 

[peter59]

Hallo,

Ik ben met deze link aan het stoeien
https://www.exceldemy.com/excel-vba-copy-worksheet-to-another-workbook-and-rename/#Download_Workbook


En dan m.n. deze 2. VBA Macro to Duplicate Worksheet to Another Workbook and Rename It by User

 

[snb]

Waarom 2 bestanden ?

Gebruik 1 bestand met 2 werkbladen:
- 1 voor de invoer van gegevens
- 1 voor de opslag van alle ingevoerde gegevens.

Zo kun je optimaal gebruik maken van tabellen, draaitabellen, sorteren, filteren, grafieken, berekeningen,etc.

 

[peter59]

Hallo,

Het probleem was een onverklaarbare koppeling met het desbetreffende bestand.
Bij wijzigen van het bronbestand werd er op de achtergrond in het opslagbestand alles overschreven nog voordat er een nieuw tabblad werd gemaakt.
Deze verbroken en het probleem is opgelost.

@Snb
Ja, je hebt volkomen gelijk.
Zelf ben ik ook een groot voorstander van tabellen, draaitabellen e.d.
Maar er zijn helaas personen die hebben andere gedachten.
M.a.w. waarom makkelijk als het moeilijk kan.