Gegevens overzetten in ander Excel document

[Vastenzeker]

@AHulpje,

ik heb het onderste deel van de VBA code aangepast met jou code.
De code heb ik gekopieerd vanaf; With Sheets("Invulblad")
Blijkbaar heb ik ergens een foute gemaakt.
Het laatste stukje van jou code; OpslaanAls Application.ScreenUpdating = True MsgBox "Overzetten van wedstrijdblad d.d. " & Date & " naar invulblad is gereed.", vbInformation, "Mededeling" End Sub

Gaat ook niet goed, hier doe ik waarschijnlijk ook iets weer fout.
Wil jij kijken wat er niet goed staat?

With Sheets("Invulblad")
        'Ronde 1
        .Cells(rijDoel, kolomDoel) = sheetWedstrijdblad.Cells(rijBron, 4)
        .Cells(rijDoel, kolomDoel + 1) = sheetWedstrijdblad.Cells(rijBron, 5)
        'Ronde 2
        .Cells(rijDoel, kolomDoel + 2) = sheetWedstrijdblad.Cells(rijBron, 9)
        .Cells(rijDoel, kolomDoel + 3) = sheetWedstrijdblad.Cells(rijBron, 10)
        'Ronde 3
        .Cells(rijDoel, kolomDoel + 4) = sheetWedstrijdblad.Cells(rijBron, 14)
        .Cells(rijDoel, kolomDoel + 5) = sheetWedstrijdblad.Cells(rijBron, 15)
    End With
End Function
Function OpslaanAls()    Dim fileNaam As String
    Dim workbookMacro As Workbook
    Set workbookMacro = ActiveWorkbook
    Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & "Sjabloon 2022.xlsm"
    Sheets("Wedstrijdblad").Unprotect
    workbookMacro.Sheets("Wedstrijdblad").Range("A7:AG108").Copy Sheets("Wedstrijdblad").Range("A7")
    fileNaam = "Sjabloon 2022-" & Format(Month(Date), "00") & "-" & Format(Day(Date), "00")
    ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & fileNaam, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    ActiveWorkbook.Close (False)
    MsgBox fileNaam & " opgeslagen.", vbInformation, "Wedstrijdblad"
End Function
End With
 OpslaanAls()
    Application.ScreenUpdating = True
    MsgBox "Overzetten van wedstrijdblad d.d. " & Date & " naar invulblad is gereed.", vbInformation, "Mededeling"
End Sub

 

[AHulpje]

ModuleOverzetten

Ik weet niet wat er bij jou fout is gegaan.
Vervang in je document de bestaande module "ModuleOverzetten" door bijgaande module.