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.