Debuggfehler 438 beim kopieren
06.07.2021 20:11:52
Robert
Mich quält wieder mal ein Problem. Wenn ich folgendes Makro anwende, dann öffnet es mir die Ziel Arbeitsmappe und dann kommt Debuggfehler 438 "Objekt unterstützt diese Eigenschaft oder Methode nicht.
Sub ADatei_Kopieren()
Dim wbZiel As Workbook
Set wbZiel = Workbooks.Open("N:\Datencenter\Beilagenwuensche.xlsm")
ThisWorkbook.Worksheets("Beilagenauftrag").Range("A1:E178").Copy
wbZiel.Worksheets("Beilagenauftrage").Range ("A1")
Set wbZiel = Nothing
End Sub
An der Zeile befindet sich beim Debuggen ein gelber Pfeil an der Zeile
wbZiel.Worksheets("Beilagenauftrage").Range ("A1")
An was kann das liegen
Für Hilfe wäre ich sehr dankbar.
LG Robert
