Wb.open klappt nicht Fehler 1004
30.06.2020 11:54:48
JulCa
Worksheets("Ixy").Visible = True
Dim ordner As Variant, wbAct As Workbook, wbNeu As Workbook
ordner = ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets("Pxy").Cells(14, 9).Value
ordner = Replace(ordner, "/", "\")
ordner = Replace(ordner, "https:", "")
ordner = Replace(ordner, "%20", " ")
If ordner = False Then Exit Sub
'*** Exportdatei öffnen
Set wbAct = ActiveWorkbook
'in der nachfolgende Zeile muss der Fehler liegen
Set wbNeu = Workbooks.Open(ordner)
wbAct.Worksheets("Ixy").Cells.Value = ""
wbNeu.Sheets("T1").Cells.Copy
ThisWorkbook.Worksheets("Ixy").Activate
ThisWorkbook.Worksheets("Ixy").Cells.Select
ActiveSheet.Cells.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Anzeige