VBA Excel

[terces]

ik zoek een manier om het volgende te doen

eerst een range selecteren (mag ook een volledige kolom zijn)
deze te copieren naar een andere sheet

dan dezelfde range maar van de kolom ernaast selecteren
deze te copieren naar die andere sheet naast de eerder gekopieerde gegevens en dit te doen voor 25 naast elkaar gelegen kolommen

ik had deze geschreven in een "while" waar variabele "kolom" dan telkens werd verhoogd met 1 na het doorlopen van de lus

Range(Chr(70 + Kolom - 3) & "2" & ":" & Chr(70 + Kolom - 3) & "27").Select
Selection.Copy
Sheets("Af_te_werken").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Raster_filteren").Select
Selection.AutoFilter Field:=Veldnr
Veldnr = Veldnr + 1
Kolom = Kolom + 1

dit lukt tot hij aan kolom "AA" komt natuurlijk... :s
iemand die mij hier kan verder helpen ?

 

[Wigi]

Ik heb de code niet in detail bekeken, maar waarom kan je niet in 1 keer kopiëren en plakken?

 

[terces]

omdat

omdat dit een tabel is waarvan de kolommen aangepast worden en er lege velden in komen te staan,

deze lege velden worden eruitgehaald via een auto-filter en dan gekopieerd en vervolgens wordt de filter in die kolom weer op "nul" gezet

als je begrijpt wat ik bedoel...

 

[Jan van Asseldonk]

Probeer deze eens.
Kopieert kolom A (=1) t/m AD (=30) van blad1 naar blad2.

Sub copykolom()
    For kolom = 1 To 30
        Columns(kolom).Copy
        Sheets("Blad2").Select
        Columns(kolom).Select
        ActiveSheet.Paste
        Sheets("Blad1").Select
    Next
    Application.CutCopyMode = False
End Sub