Herbers Excel-Forum - das Archiv

Tabellenblatt aus anderer Tabelle kopieren

Bild

Betrifft: Tabellenblatt aus anderer Tabelle kopieren
von: Gabor

Geschrieben am: 06.04.2005 23:48:05
Hallo liebe Experten,
Ich versuche schon eine ganze Weile komm aber nicht weiter. Ich habe eine Tabelle mit 21 Blättern. Im Blatt "import" stehen von Zelle A2 bis Zelle A22 die Pfade der zu importierenden Tabellen (haben nur ein Blatt). Nun sollen ins Tabellenblatt "1" die Tabelle aus Pfad A2, ins Tabellenblatt "2" die Tabelle aus Pfad A3, ... usw importiert werden.
Ich habe aber schon beim schließen der ersten Tabelle Probleme.
Könnt ihr mir bitte schreiben wie die zeile
"Workbooks(i).Close savechanges:=False"richtig ist.
Hier der ganze CODE
Option Explicit
Sub datenimport_modul1()
Dim i As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
ThisWorkbook.Activate
Sheets("1").Select
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Sheets("import").Select
i = Range("A2")
Workbooks.Open i
Columns("A:G").Select
Selection.Copy
ThisWorkbook.Activate
Sheets("1").Select
ActiveSheet.Paste
Sheets("import").Select
Range("D5").Select
'... funktioniert nicht
Workbooks(i).Close savechanges:=False
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = False
End Sub


Danke für jede Antwort.
Bild

Betrifft: AW: Tabellenblatt aus anderer Tabelle kopieren
von: Gabor

Geschrieben am: 07.04.2005 01:02:29
Ich habe das Problem mit dem schließen der datei gelöst, in E2 steht jetzt der richtige dateiname. Kann mir bitte eine/r helfen aus dem makro eine schleife zu bauen? In Spalte A2 bis A22 steht der Pfad der zu importierenden Dateien und in E2 bis E22 steht der Dateiname (extrahiert aus dem Pfad) und jetzt soll wie schon mit Blatt"1" mit den restlichen 19 Blättern verfahren werden.
Hier der ganze CODE
Option Explicit
Sub datenimport_modul1()
Dim i As String
Dim k As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
ThisWorkbook.Activate
Sheets("1").Select
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Sheets("import").Select
i = Range("A2")
k = Range("E2")
Workbooks.Open i
Columns("A:G").Select
Selection.Copy
ThisWorkbook.Activate
Sheets("1").Select
ActiveSheet.Paste
Sheets("import").Select
Range("D5").Select
Workbooks(k).Close savechanges:=False
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = False
End Sub

Danke für jede Antwort.
Gabor
 Bild
Excel-Beispiele zum Thema "Tabellenblatt aus anderer Tabelle kopieren"
Benennen von Tabellenblättern mit Monatsnamen Druckseitenlinien im Tabellenblatt
Tabellenblattnamen in ein Listenfeld einlesen Suchbegriff über mehrere Tabellenblätter suchen.
Tabellenblätter benennen Tabellenblatt auswählen
Zustand von Tabellenblatt-Checkboxes ermitteln Tabellenblattnamen der VBE-Projekte ändern
Tabellenblattnamen nach Datum Gefilterte Daten in neues Tabellenblatt übertragen