Macro om de bereiken van namen goed te zetten

Status
Niet open voor verdere reacties.

gaggie

Gebruiker
Lid geworden
13 apr 2012
Berichten
101
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?

Code:
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
 
Code:
with ActiveSheet.range("A1:A4500")
    .name="leerling"
    .resize(,13).name="resultaten"
    .offset(,1).Name="toets"
end with
 
Laatst bewerkt:
Beste SNB

Krijg een foutmelding.

Code:
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
 
Dat kun je zelf gemakkelijk zelf uitzoeken (word je wijzer van... ;))
 
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
 
Beste Snb,

Uiteindelijk na veel proberen het volgende gedaan, dat werkt.

Code:
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
 
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.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan