Wrong number of arguments or invalid property assignment

[Scallebe]

Goede middag specialists

Ik wil met VBA de Range bepalen en een naam geven.

In de cel E1 staat altijd het juiste cijfer voor de eindwaarde van de range (in dit geval 166)

Private Sub SetRange()
    
    Range("A2:B" & Range("E1") + 1).Select
    Range("A2:B" & Range("E1") + 1).Activate
    ActiveWorkbook.Names.Add Name:="Naamlijst", RefersToR1C1:= _
        "=Sheet1!R2C1:R[E1]C2"
        Range("A1").Select

End Sub

Maar ik krijg de ERROR : Compile error : Wrong number of arguments or invalid property assignment

en deze code licht op :

    Range("A2:B" & Range("E1") + 1).Select

Wat doe ik fout?

Thanks

Greetz

Pascal

 

[Cobbe]

Dit zal ook wel voldoen zeker:

Private Sub SetRange()

ActiveWorkbook.Names.Add Name:="Naamlijst", RefersToR1C1:=Range("A2:B" & Range("E1") + 1)

End Sub

 

[OctaFish]

Probeer 'm zo eens:

ActiveWorkbook.Names.Add Name:="Naamlijst", RefersToR1C1:=Range(Cells(2, 1), Cells(Range("H1"), 5))

 

[Scallebe]

Bedankt Helpmij-ers :thumb:

beide codes werken perfect.

OctaFish

Ik heb jouw code wel een beetje aangepast, niet dat ik het beter weet, verre van, maar ik denk dat je een klein foutje gemaakt hebt (H1 =E1) en ik heb er +1, 2 (2 kolommen is voldoende) aan toegevoegd

ActiveWorkbook.Names.Add Name:="Naamlijst", RefersToR1C1:=Range(Cells(2, 1), Cells(Range("E1") + 1, 2))

Greetz

Pascal

 

[snb]

Of gewoon zo:

Sub M_snb()
    Cells(2, 1).Resize(Cells(1, 5)+1, 2).Name = "Naamlijst"
End Sub

of

Sub M_snb()
    Cells(2, 1).currentregion.Resize(, 2).Name = "Naamlijst"
End Sub

 

[Scallebe]

Octafish,

Of refereert het laatste deel van uw code "Cells(Range("H1"), 5))" naar iets anders? Ik probeer altijd de voorgestelde oplossingen een beetje te volgen en te annaliseren. (om bij te leren he)

ActiveWorkbook.Names.Add Name:="Naamlijst", RefersToR1C1:=Range(Cells(2, 1), Cells(Range("H1"), 5))

snb

Ik zal uw code ook eens proberen.


Bedankt allemaal.

Greetz

Pascal