ich stehe vor einem kleinen Problem, finde den Fehler aber nicht.
Ich möchte eine Datei öffnen, dann ein darin befindliches Sheet in meine erste Datei kopieren und dann die zweite Datei wieder schließen.
alles funktioniert problemlos mit Ausnahme des Schließens der zweiten Datei.
Ich erhalte dann immer ein "Index ausserhalb des Bereichs"
Sub Export_einlesen()
Dim Dateiname As String
Dim i As Integer
Dim iRow As Integer
Dim iColumn As Integer
Dim sRow As Integer
Dim sColumn As Integer
sRow = 2
sColumn = 1
iRow = 10
iColumn = 2
Dateiname = Application.GetOpenFilename()
Application.EnableEvents = False
Application.ScreenUpdating = False
Workbooks.Open Filename:=Dateiname
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets("Sheet1").Copy after:=ThisWorkbook.Worksheets("Batch")
ThisWorkbook.Worksheets("Sheet1").Name = "Export"
Workbooks(Dateiname).Close
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True
'Do
'If IsEmpty(Cells(iRow + 1, 1)) Then Exit Do
'iRow = iRow + 1
'Loop
End Sub
Könnte mir jemand weiterhelfen und sagen, weshalb er die externe Datei nicht schließen kann?
Das Kopieren und Umbenennen funktioniert wie gesagt einwandfrei.
Vielen Dank und viele Grüße