Actieve kolom copieren

[dbk]

Goedenmorgen,

Ik ben bezig om een macro te maken om een actieve kolom te kopieren.
Ik heb wel een macro gekregen om een actieve cel te kopieren (via dit forum gekregen) en heb deze proberen om te bouwen naar de actieve kolom.

Macro voor actieve cel:

Sub Macro_Actieve_cel()
'Deze macro copieert de actieve cel naar Blad 1

ActiveCell.Copy Sheets("Blad1").Range("E3:E3")
  Sheets("Blad1").Select
    Range("E2").Select
End Sub

En dit heb ik geprobeerd er van te maken:

Sub Macro_Actieve_column()

ActiveColumns.Select
 Selection.Copy
  Columns("I:I").Select
   ActiveSheet.Paste
    Range("H2").Select

End Sub

Nu loopt de macro vast. Kan iemand mij opweg helpen?

De bedoeling is dat de "actieve kolom" in zijn geheel wordt gekopieerd en de waarden worden geplakt in "kolom I" op hetzelfde blad. Hier kan dan later een sortering op plaats vinden.


Groet,
DBK

 

[Roncancio]

Wat korter:

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

Met vriendelijke groet,


Roncancio

 

[dbk]

Roncancio,

Bedankt voor de snelle reactie. :thumb:
Hij doet precies wat ik had gehoopt. En inderdaad het antwoord is weer kort

Nogmaals bedankt voor je hulp.

Groet,
DBK