Actieve kolommen kopieren

[dbk]

Hallo,


Ik heb via dit forum de volgende code ontvangen om een actieve kolom te kopieren, te weten:

Sub KolomKopieren()
ActiveSheet.Columns(ActiveCell.Column).Copy Destination:=Blad2.Range("A1")
End Sub

Graag zou ik deze ombouwen om geselecteerde kolommen te kopieren.
Ik heb dus het volgende probeert (wat dus niet werkt):

Sub DBK_test()
' geselecteerde kolommen copieren en plakken vanaf kolom A op blad 2
 ActiveSheet.Columns(ActiveColumns.Column).Copy Destination:=Blad2.Range("A1")
End Sub

Korte uitleg wat de code dient te doen:
Er worden kolommen geselecteerd (willekeurige en niet aaneengesloten) welke in zijn geheel gekopieerd dienen te worden en de informatie dient op blad 2 geplaats te worden.

Kan iemand mij verder opweg helpen?


Alvast bedankt :thumb:,

DBK

 

[Wigi]

Ik betwijfel of dit werkt, maar je kan het proberen.

Sub DBK_test()
' geselecteerde kolommen copieren en plakken vanaf kolom A op blad 2
 Selection.EntireColumn).Copy Destination:=Blad2.Range("A1")
End Sub

 

[dbk]

Hallo WIGI,

Ik heb haakje sluiten weg halenen dan werkt hij zoals ik had verwacht.
De code is als volgt:

Sub DBK_test()
' geselecteerde kolommen copieren en plakken vanaf kolom A op blad 2
 Selection.EntireColumn.Copy Destination:=Blad2.Range("A1")
End Sub

Bedankt voor de reactie en je hulp :thumb:

Groet,
DBK