ich habe einen kleines Problem, was mich verzweifeln lässt.
Vorab, der Code hat schon mal funktioniert jetzt haben ich das Tool an anderer Stelle weiterentwickelt und jetzt geht nichts mehr.
Die Betreffenden Zellen haben sich nicht verändert.
Das alles erfolg per _Click Sub.
Application.ScreenUpdating = False
Call Blattschutz_Deaktivieren
'Dateien anhaengen
Dim Aktuell As Workbook
Dim Alt As Workbook
Dim Datei As Variant
Set Aktuell= ActiveWorkbook
'Wenn keine Datei ausgewählt wird Dialog ohne Fehlermeldung schließen
Datei = Application.GetOpenFilename()
Workbooks.Open Filename:=Datei, ReadOnly:=True
Set Alt = ActiveWorkbook
x Alt.Worksheets("Hilfsblatt").Range("H_Name").Copy
Aktuell.Worksheets("Hilfsblatt").Range("H_Name_Alt").PasteSpecial Paste:=xlPasteValues
Alt.Worksheets("Hilfsblatt").Range("H_Nachfolge").Copy
Aktuell.Worksheets("Hilfsblatt").Range("H_Alt_Nachfolge").PasteSpecial Paste:=xlPasteValues
Der Debugger markeirt mir die mit X markierte Zeile und sagt
"Laufzeitfehler 1004 Anwendungs- oder objektdefinierter Fehler"