variabele range bepalen met vba

[Feng01]

Ik wil een variabel gebied instellen als range waarmee ik dan vervolgens diverse sorteringen wil doen.

Wat weet ik:
- Ik weet dat de beginpositie van de range altijd cell B10 is.
- ik weet ook dat de laatste kolom voor de range G is
- Het aantal rijen dat ik moet meenemen is verschillend. In cell A2 staat het aantal rijen genoemd, laten we zeggen 7 als voorbeeld. Bij een volgende keer is dat misschien 12 rijen. Dit is dus het variabele gedeelte in de range.

In dit voorbeeld heb ik maar 7 rijen om te sorteren, want meer namen zijn niet ingevuld.
De andere kolommen zijn uiteraard ook ingevuld maar dat heb ik in dit voorbeeld even niet gedaan omdat het om de variabele range bepaling gaat.

Vraag is nu hoe kan ik in vba de range instellen zodat die van B10 tot G16 loopt, en dat ik met die range diverse sorteringen kan doen in vba.

 

[Haije]

gebied = Range(Cells(10, 2), Cells(10 - 1 + [B2], 8)).Address

 

[Feng01]

Super bedankt, ga het gelijk even proberen.

 

[Feng01]

Er komt een foutcode 91, waarschijnlijk omdat ik gebied niet heb gedefinieerd.
Moet ik die als range definiëren met dim ?

 

[Haije]

Als je gebruik maakt van Option Explicit wel

 

[VenA]

Om te sorteren op achternaam en adres

Sub VenA()
  With Cells(9, 1).CurrentRegion
    .Sort .Cells(1, 2), , .Cells(1, 4), , , , , xlYes
  End With
End Sub