wie muss der Code lauten zum öffnen einer externen Arbeitsmappe?
Gruss
Bernd
Option Explicit
Sub tt()
On Error GoTo DateiNichtDa
Workbooks.Open "c:\deinemappe.xls"
On Error GoTo 0
'weiterer Code
Exit Sub
DateiNichtDa:
MsgBox "DateiNichtDa"
Resume Next
End Sub
Sub auf()
Const DATEI As String = "c:\deinemappe.xls"
If Not Dir(DATEI) = "" Then
Workbooks.Open DATEI
Else
MsgBox "Datei " & DATEI & " nicht gefunden!"
End If
End Sub