Private Sub CommandButton1_Click()
Dim bytLastColumn As Byte
bytLastColumn = ActiveSheet.Cells(1, 256).End(xlToLeft).Column
ActiveSheet.Columns("D:F").Select
Selection.Copy
ActiveSheet.Cells(1, bytLastColumn + 1).Select
ActiveSheet.Paste
End Sub
D bis F sind aber ausgeblendet. Per Klick werden die Spalten zwar kopiert und an die nächsten freien Spalten kopiert, allerdings werden die kopierten Spalten auch direkt ausgeblendet. Kann man die kopierten Zellen auch wieder einblenden.
Vielen Dank für eure hilfe.
petra