Variabel kopieerbereik

[flbos]

Met onderstaande code kopieer ik bepaalde gegevens.

Worksheets("tijd").Range("A1:bz64991").Copy _
Destination:=Worksheets("blad1").Range("a46")

Op zich werkt dit, maar het kost onnodig veel verwerkingstijd, omdat ik veel lege cellen selecteer. Deze cellen zouden echter een andere keer wel gegevens kunnen bevatten, ze moeten dus geselecteerd worden, maar alleen als ze gevuld zijn. Ik heb dit als volgt proberen op te lossen (xldown werkt normaal prima). Is het inderdaad mogelijk om hiervoor xldown te gebruiken (correcte syntaxis?) of is er een andere oplossing? Het zou helemaal mooi zijn als ik ook alleen de kolommen waar iets in staat kan selecteren (de kolommen varieren namelijk oo), bestaat er zoiets als xlright?

Worksheets("tijd").Range("A1:Sheets("tijd").Range("bz1").End(xlDown)").Copy _
Destination:=Worksheets("blad1").Range("a46")

 

[Marrosi]

Hallo flbos,

Behalve xlDown bestaat er ook nog xlUp, xlToRight en xlToLeft.

Groetjes - Marrosi

 

[flbos]

currentregion

Ik heb inmiddels begrepen dat

Worksheets("tijd").Range("A1").currentregion.Copy _
Destination:=Worksheets("blad1").Range("a46")

een betere oplossing is