Range variabel maken

Status
Niet open voor verdere reacties.

1965Peter

Gebruiker
Lid geworden
20 jun 2016
Berichten
197
Mijn vraag is hoe kan ik de range $A$1:$AD$17, variabel maken in deze formule.
aantal regels is telkens verschillend nl.



Code:
    Rows("1:1").Select
    Range("M1").Activate
    Selection.AutoFilter
    
    ActiveSheet.Range("$A$1:$AD$17").AutoFilter Field:=30, Criteria1:= _
        "<>*Niet in Lijst*", Operator:=xlAnd
    
    Range("A3").Select

Alvast bedankt
 
Waar plaats ik deze precies snb? ik heb Range("$A$1:$AD$17") vervangen voor Currentregion, maar dan krijg ik een foutmelding
 
Of maak van je range een verschuiving in Formules>Namen Beheren

Bivoorbeeld

Kies een naam (NAAM)

HTML:
=VERSCHUIVING("A1";;AANTALARG("A1:A17");)

Deze groeit mee als je de rij eronder invult.

In je code dan

blad1.range([NAAM])

enz
 
Of maak van je range een verschuiving in Formules>Namen Beheren

Bijvoorbeeld

Kies een naam (NAAM)

HTML:
=VERSCHUIVING("A1";;AANTALARG("A1:A17");)

Deze groeit mee als je de rij eronder invult.

In je code dan

Code:
ActiveSheet.Range([NAAM])

enz
 
Ik zou het niet met dubbele quotes schrijven, maar ja ik heb het ook niet getest natuurlijk.
 
Ik ken je toepassing niet maar omdat je ook filtert vermoed ik dat je goed gebruik kunt maken van Excel tabellen (listobjecten). Die hebben ingebouwde dynamische ranges, bijvoorbeeld ListColumns(1).DataBodyRange.
 
mvdvlist, Ik heb jouw optie gebruikt en het werkt.
Bedankt voor alle reacties
 
Code:
cells(1).currentregion.autofilter 30, "<>*Niet in Lijst*"
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan