Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
732to736
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
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabelle aus anderer Datei kopieren

Tabelle aus anderer Datei kopieren
petra
Hallo,
habe folgenden Makro
Public

Sub Einfügen()
Workbooks("mapp1.xls").Worksheets("Tabelle1").Copy after:=ThisWorkbook.Worksheets(1)
Call Kopieren
End Sub

Public

Sub Kopieren()
Sheets("Tabelle1").Cells.Copy
Sheets("Tabelle1").Cells.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Tabelle1").Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Jetzt würde ich allerdings gerne nicht das Tabellenblatt von Mappe1 einfügen sondern lediglich die Spalten A bis T aus Tabelle 1 von Mappe1 in die Datei Mappe2 Tabelle 2 einfügen.
Was muss sich dafür ändern?
lg
petra

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

Betreff
Benutzer
Anzeige
Eine Möglichkeit...
14.02.2006 16:01:06
RolfK
Hallo Petra,

Sub Kopieren()
With Workbooks("Mappe1.xls").Sheets("Tabelle1")
.Columns("A:C").Copy Workbooks("Mappe2.xls").Sheets("Tabelle2").Range("A1")
End With
Application.CutCopyMode = False
End Sub

Aber Achtung, Dein Kopierbeispiel kopiert nur die Formate und die Werte, bei mir bleiben die Formeln und alles erhalten.
mfg Rolf
Danke! Funktioniert! o.T.
14.02.2006 16:21:03
petra
Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige