MakroZugriff auf fremde Datei - Abfragen

Sub AutocopyNachmittagRussia()
Dim offen$, Dat$, Blatt$, DName$, D1, D2
Dat = "C:/Osteuropa/Russia.xls"
Blatt = "Blatt1"
DName = Dir(Dat) 'prüft, ob Datei existiert. Rückgabe= Dateiname ohne Pfad
Set D2 = ThisWorkbook.Sheets("perform")
If DName = "" Then
MsgBox "Datei " & Dat & " nicht vorhanden"
Exit Sub
End If
On Error Resume Next
offen = Workbooks(DName).Name
If Err.Number = 9 And offen = "" Then 'Datei nicht offen
Err.Clear
On Error GoTo 0
Workbooks.Open Filename:=Dat
End If
On Error GoTo 0
Set D1 = Workbooks(DName).Sheets(Blatt)
D1.Range("E11").Copy
D2.Range("D101").PasteSpecial Paste:=xlPasteValues
Workbooks(DName).Close savechanges:=False 'schließt Datei ohne ändern
End Sub