Hallo Liebe Profis,
ich möchte gerne alle Tabs aus dem File DatenFile in das File AuswerteFile vor das Tabellenblatt 3 kopieren, und nutze folgenden Code:
Dim AuswerteFile As String
AuswerteFile = ThisWorkbook.Name
Dim FileToOpen
If Dir("C:\*.*") "" Then ChDir "C:\"
FileToOpen = Application.GetOpenFilename(filefilter:="data file (*.xls),*.xls", Title:=Zieltab)
If FileToOpen = False Then Exit Sub
Workbooks.OpenText Filename:=FileToOpen
Dim DatenFile As String
DatenFile = ActiveWorkbook.Name
Dim AnzahlRohdatenTabs As Integer
AnzahlRohdatenTabs = Sheets.Count
For i = 1 To AnzahlRohdatenTabs
Sheets(i).Select False
Next i
Selection.Copy Before:=Workbooks(AuswerteFile).Sheets(3)
Leider gibt an dieser Stelle nen Laufzeitfehler. Kann mir jemand weiterhelfen?
Danke im Voraus!
LG,
Doro