Macro om de bereiken van namen goed te zetten

[gaggie]

Telkens als ik wat kopieer naar een blad veranderen de bereiken van de namen op dat blad.
Nu dacht ik een macro te maken zodat ik deze kan laten lopen na de kopieerslag zodat de bereiken weer goed staan, echter hij stop bij het statement

.comment ""

Heeft iemand een idee?

Sub Zetbereikbeheernamengoed()
'
' Zetbereikbeheernamengoed Macro
'

'
    With ActiveWorkbook.Names("leerling")
        .Name = "leerling"
        .RefersToR1C1 = "=Database!R1C1:R4500C1"
        .Comment = ""
    End With
    With ActiveWorkbook.Names("resultaten")
        .Name = "resultaten"
        .RefersToR1C1 = "=Database!R1C1:R4500C13"
        .Comment = ""
    End With
    With ActiveWorkbook.Names("toets")
        .Name = "toets"
        .RefersToR1C1 = "=Database!R1C2:R4500C2"
        .Comment = ""
    End With
End Sub

Mvg

Guido

 

[snb]

with ActiveSheet.range("A1:A4500")
    .name="leerling"
    .resize(,13).name="resultaten"
    .offset(,1).Name="toets"
end with

 

[gaggie]

Beste SNB

Krijg een foutmelding.

Sub Zetbereikbeheernamengoed()
'
' Zetbereikbeheernamengoed Macro
'
With ActiveWorkbook.Range("A1:A4500")          << deze eigenschap of methode wordt niet ondersteund door dit object error 438
    .Name = "leerling"
    .Resize(13).Name = "resultaten"
    .Offset(, 1).Name = "toets"
End With

End Sub

Mvg.

Guido

 

[snb]

Dat kun je zelf gemakkelijk zelf uitzoeken (word je wijzer van... )

 

[gaggie]

Begrijp dat ik wijzer moet worden.

Maar heb ondertussen gezocht op internet, maar kom er echt niet uit.
Kun je een hint of toch een oplossing geven.

Guido

 

[gaggie]

Beste Snb,

Uiteindelijk na veel proberen het volgende gedaan, dat werkt.

Sub Zetbereikbeheernamengoed()
'
' Zetbereikbeheernamengoed Macro
'
With ActiveWorkbook.[COLOR="#FF0000"]Worksheets("Database").[/COLOR]Range("A1:A4500")
    .Name = "leerling"
    .Resize([COLOR="#FF0000"],[/COLOR] 13).Name = "resultaten"
    .Offset(, 1).Name = "toets"
End With

End Sub

Mvg.

Guido

 

[snb]

Ik heb de suggestie in #2 nu aangepast (iets eenvoudiger dan jouw aanpak)
Als je werkzaam bent in het onderwijs weet je dat je hiervan het meeste leert.

Suggestie : zoek niet op internet, maar maak gebruik van de hulpbestanden van de VBEditor en de foutopsporingshulpmiddelen van de VBEditor.
Maar vooral: analyseer de code (deel)item voor (deel)item.