Inhalt aus einem anderen Tabellenblatt kopieren

Sub Copy() Dim TB1, Pfad As String, Datei As String, Blatt As String '-Vorgaben Set TB1 = ThisWorkbook.Sheets("Tabelle1") Pfad = "C:\...." Datei = "Mappe2.xlsb" Blatt = "Tabelle1" 'Quelle '-Ende Vorgaben Datei = "[" & Datei & "]" With TB1 Blatt.UsedRange.Copy _ Destination:=TB1.Range(Blatt.UsedRange.Address) End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Kurt,
... Deinem Code-Versuch.
Zunächst: aus einer geschlossenen Datei ist nicht möglich, Du wirst die Datei immer öffnen müssen, um daraus etwas zu kopieren. Außerdem:
TB1 ist nicht korrekt deklariert, das sollte eine Worksheet-Variable sein. Selbst dann ist das aber nur die halbe Miete, denn damit hättest Du ein Ziel-Blatt (in das eingefügt wird). Ein Quell-Blatt definierst Du erst gar nicht, zumal ich nicht weiß, was Du damit vorhast:

Datei = "[" & Datei & "]"

"Datei" und "Blatt" bleiben im gesamten Code lediglich Strings - also einfach Buchstabenketten, die es Excel schwer machen zu verstehen, dass Du gerne eine bestimmte Datei öffnen und aus einem dortigen bestimmten Tabellenblatt etwas kopieren willst.
Deine With-Konstruktion bezieht sich aktuell auf TB1, d.h. aus meiner Sicht auf Dein Ziel-Blatt, allerdings ist auch das konfus, denn in

Destination:=TB1.Range(Blatt.UsedRange.Address)

willst Du Dich innerhalb Deines Ziel-Blattes auf ein Quell-Blatt beziehen?!?!
Daher eher soetwas

Sub AusAndererMappeKopieren()
'Konstanten für Dateipfad, Dateiname und Blattname der
'Quell-Datei (aus der Daten gelesen werden)
Const PFAD As String = "C:\DeinPfad\"
Const DNAME As String = "Mappe2.xlsb"
Const BLATT As String = "Tabelle1"
'Bildschirm-Aktualisierung ausschalten
Application.ScreenUpdating = False
'Die Ziel-Datei bestimmen als DIESE Datei, d.h. die Datei
'die dieses Makro enthält
Dim WbZiel As Workbook: Set WbZiel = ThisWorkbook
'Das Ziel-Blatt bestimmen
Dim WsZiel As Worksheet: Set WsZiel = WbZiel.Worksheets("Tabelle1")
Dim WbQuell As Workbook
Dim WsQuell As Worksheet
'Die Quell-Mappe aufrufen/öffnen
Set WbQuell = Workbooks.Open(PFAD & DNAME)
With WbQuell
'In der Quell-Mappe das Quell-Blatt bestimmen
Set WsQuell = .Worksheets(BLATT)
'Den verwendeten Bereich des Quell-Blattes kopieren...
With WsQuell
'...und im Ziel-Blatt einfügen
.UsedRange.Copy WsZiel.Range("A1")
End With
'Quell-Mappe wieder schließen, Änderungen nicht speichern
.Close False 'Alternativ: True, Änderungen speichern
End With
End Sub

LG
Michael

Row=3 VariableA = Sheets("Tabelle2").Range("B" & Row) y_DA = Format(Year(VariableA), "0000") m_DA = Format(Month(VariableA), "00") 'Konstanten für Dateipfad, Dateiname und Blattname der 'Quell-Datei (aus der Daten gelesen werden) 'Const PFAD As String = "C:\..." & y_DA & "\" & m_DA & "\" Const DNAME As String = "Mappe2.xls"

Beliebteste Forumthreads (12 Monate)

Inhalt aus einem anderen Tabellenblatt kopieren

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Inhalt aus einem anderen Tabellenblatt kopieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread