Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Columns Copy Paste

Forumthread: Columns Copy Paste

Columns Copy Paste
25.01.2005 07: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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Columns Copy Paste
g
hi

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

Anzeige
MERCI!!
Torsten
MERCI!!
Torsten
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige