Macro met variabel aantal kolommen selecteren: Columns("E:……").Select

Question

Ik wil kolom D kopieren. Te beginnen naar kolom E. De totale range hangt af van het getal in de variabele Var_Kolom.

Als Var_kolom = 3, dan moet het worden: Columns("E:G").Select

Als Var_kolom = 22, dan moet het worden: Columns("E:Z").Select

Hoe kan ik die waarde van G en Z (of hele andere uitkomst, afhankelijk van Var_Kolom) in de macro verwerkt krijgen?

Var_Kolom = Sheets("Test").Range("C40")

'If Var_Kolom > 0 Then

    Columns("D:D").Select

    Selection.Copy

--->    Columns("E:……").Select

    ActiveSheet.Paste

End If

Groeten,

Henk

Answer 1

Henk,

Een mogelijkheid:

    Range("E1").Resize(1, varKolom).EntireColumn.Select

Jan

Answer 2

    Columns("D:D").Select

    Selection.Copy

--->    Columns("E:……").Select

    ActiveSheet.Paste

Henk,

Het is wellicht goed om te weten dat, als je bewerkingen op een bereik wil uitvoeren (zoals bv. kopiëren), het niet nodig is om dat bereik te selecteren. Met gebruikmaking van het antwoord van Jan zou je een kopieerbewerking als volgt kunnen uitvoeren:

Dim var_Kolom as integer

var_Kolom = Sheets("Test").Range("C40")

Columns(4).Copy Range("E1").Resize(1, var_Kolom)

Answer 3

Perfect Jan!

Bedankt, Henk

Answer 4

Opmerking: Bovenstaande links zijn niet-Microsoft-websites. De pagina's lijken te zijn het verstrekken van nauwkeurige, veilige informatie. Kijk uit voor advertenties op de site die producten kunnen adverteren die vaak worden geclassificeerd als een PUP (potentieel ongewenste producten). Grondig onderzoek elk product geadverteerd op de site voordat u besluit om te downloaden en te installeren.

Answer 5

We gebruiken een vertaaldienst om onze gebruikers te helpen. Vergeef ons eventuele grammaticale fouten alstublieft.

Hallo Henk358 ! Ik ben Jen, een onafhankelijke adviseur en een collega Microsoft-gebruiker zoals jij. Ik help je graag met dit probleem.

U proberen de codes in de volgende koppeling aan te passen.

https://stackoverflow.com/questions/12199318/vb...

https://stackoverflow.com/questions/13157363/cr...

Hoop dat dit helpt u uitzoeken van het probleem.

Als u vragen heeft, laat het me weten en ik zou u graag verder helpen.

Bedankt en beste groeten!

Jen :)