Relatieve verwijzing in selectie (VBA)

[Goldfoxx]

Een deel van de macro die ik op het moment aan het maken ben is het volgende:

Range("N2:N" & Cells(Rows.Count, "M").End(xlUp).Row)

Nu wil ik dat dit een relatieve verwijzing wordt waarbij kolom N de huidige geselecteerde kolom wordt en kolom M de geselecteerde kolom -1.

Flink afgezocht op diverse fora, maar kom er niet uit, misschien dat jullie opheldering kunnen geven?

 

[Cobbe]

Niet getest maar zou moeten werken

Range(ActiveCell.Columns & "2:" & ActiveCell.Columns & Cells(Rows.Count, ActiveCell.Columns.Offset(, 1).End(xlUp).Row))

 

[Goldfoxx]

Hij geeft de volgende foutmelding:

methode range van object_global is mislukt

 

[Cobbe]

Deze zou zo wel eens beter kunnen werken:

Range(Cells(2, ActiveCell.Column), Cells(Cells(Rows.Count, ActiveCell.Column - 1).End(xlUp).Row, ActiveCell.Column))