Datei auswählen und kopieren
08.08.2019 15:15:44
Zna
ich habe hier einen Code geschrieben, mit dem ich eine xlsx datei auswählen möchte und dann in mein workbook in eine bestimmte spalte die daten reinkopieren möchte.
Leider funktioniert das nicht mit jeder datei und ich bekomme den Laufzeitfehler 9, außerhalb des Index.
Wie kann ich diesen Code so optimieren, dass ich jede datei auswählen und in das jeweilige Tabellenblatt kopieren kann.
Ich bin über jede Hilfestellung dankbar!
Sub DisInf()
Dim importdatei As Variant
Dim wbimport As Workbook
importdatei = Application.GetOpenFilename(filefilter:="Microsoft Excel-Dateien(*.xlsx),*.xlsx", _
_
Title:="Choose a file")
If importdatei = False Then Exit Sub
Set wbimport = Workbooks.Open(importdatei)
wbimport.Worksheets("tabelle1").UsedRange.Copy
ThisWorkbook.Worksheets("tabelle2").Cells(1, 2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
wbimport.Close savechanges:=False
Set wbimport = Nothing
End Sub
Anzeige