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

Tabellenblatt aus externer Exceldatei kopieren

Tabellenblatt aus externer Exceldatei kopieren
10.07.2008 10:15:00
Makro
Hi,
ich suche ein Möglichkeit, wie ich eine komplettes Tabellenblatt aus einer externen Excel Datei in meine Datei übertragen kann.
Die Quelldatei, von der ich kopieren oder importieren will, heist "Arbeitsdaten" und hat nur ein Tabellenblatt ("Quelldaten")
Die möchte ich nun per Makro in meine bestehende excel Datei kopieren oder transferieren.
In meiner excelmappe gibt es ein Tabellenblatt "Daten einlesen" und da sollen die daten rein.
Wie ist sowas machbar ?
danke mal für Eure Tipps
Makro

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt aus externer Exceldatei kopieren
10.07.2008 11:14:19
Peter
Hi ? - hast du keinen richtigen Namen ?
versuch es einmal so:

Public Sub Ein_Blatt_kopieren()
Dim WkBk_Quelle  As Workbook   ' das Herkunfts-Workbook - die Quelle
Dim WSh_Quelle   As Worksheet  ' das Herkunfts-Tabellenblatt
Dim rBlock_Q     As Range      ' der zu kopierende Block
Dim WkBk_Ziel    As Workbook   ' das Empfangs-Workbook - das Ziel
Dim WSh_Ziel     As Worksheet  ' das Empfangs-Tabellenblatt
Dim lZeile_Z     As Long       ' die jeweilige Start-Zeile im Ziel-Blatt
Set WkBk_Ziel = ActiveWorkbook  ' diese Datei ist das Ziel !!!
Set WSh_Ziel = WkBk_Ziel.Worksheets("Daten einlesen") ' das Tabellenblatt ggf. anpassen !!!
lZeile_Z = 1                    ' die erste zu beschreibende Zeile
Application.ScreenUpdating = False ' den Bildschirm-Update unterdrücken
Set WkBk_Quelle = Workbooks.Open(Filename:= _
"C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Excel-Dateien\" & _
"Arbeitsdaten.xls", ReadOnly:=True) ' die Herkunfts-Datei - die Quelle - öffnen
Set WSh_Quelle = WkBk_Quelle.Worksheets("Quelldaten") ' das Tabellenblatt benennen
With WSh_Quelle   ' mit dem jeweiligen Tabellenblatt arbeiten
Set rBlock_Q = .Range(.Cells(1, 1), .Cells.SpecialCells(xlLastCell))
rBlock_Q.Copy
WSh_Ziel.Cells(lZeile_Z, 1).PasteSpecial Paste:=xlFormats
WSh_Ziel.Cells(lZeile_Z, 1).PasteSpecial Paste:=xlValues
lZeile_Z = lZeile_Z + rBlock_Q.Rows.Count
End With
Application.CutCopyMode = False
WkBk_Quelle.Close savechanges:=False
Application.ScreenUpdating = True  ' den Bildschirm-Update wieder zulassen
End Sub


Gruß Peter

Anzeige
AW: Tabellenblatt aus externer Exceldatei kopieren
10.07.2008 12:05:47
Makro
Hallo Peter,
doch habe ich: Marco
Also, zu deinem Code, funzt prima , vielen dank
Gruss
Marco


300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige