Columns Copy Paste

Forumthread: Columns Copy Paste
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Columns Copy Paste

Columns Copy Paste

25.01.2005 08:57:17

Torsten

Hallo zusammen,
eigentlich ne einfache Frage.....
Kann ich in Blatt2 z.B. eine Spalte 15 nach Spalte 10 kopieren ohne dass ich dabei Blatt1 verlassen muss?
Danke und Gruss,
Torsten

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Columns Copy Paste

g
MERCI!!

Torsten

AW: Columns Copy Paste


Sub SpalteVerschiebenOderKopieren()
Dim wksQuelle     As Worksheet
Dim wksZiel     As Worksheet
Dim lngColQuelle  As Long
Dim lngColZiel  As Long
lngColQuelle = 15
lngColZiel = 10
Set wksQuelle = ActiveWorkbook.Worksheets("Tabelle2")
Set wksZiel = ActiveWorkbook.Worksheets("Tabelle2")
'oder auch
'Set wksZiel = ActiveWorkbook.Worksheets("Tabelle3")
'wksQuelle.Columns(lngColQuelle).Copy
'oder
wksQuelle.Columns(lngColQuelle).Cut
wksZiel.Columns(lngColZiel).Insert Shift:=xlToRight
'wksQuelle.Columns(lngColQuelle).EntireColumn.Delete 'nur beim verschieben auf unterschiedlichen Sheets
Set wksZiel = Nothing
Set wksQuelle = Nothing
End Sub