Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige