erst prüfen ob Arbeitsmappe geöffnet
03.10.2005 09:30:45
Scheinchen
Bei dem folgenden Code bleibt er bei: If WkbExists("Daten.xls") = False Then
stehen. Kann mir bitte jemand sagen, woran das liegt?
Sub dateioeffnen()
Dim sFile As String, sPath As String
sFile = "Daten.xls"
sPath = ThisWorkbook.Path & "\" & sFile
If WkbExists("Daten.xls") = False Then
If Dir(sPath) = "" Then
MsgBox "Datei " & sPath & " wurde nicht gefunden!"
Else
Workbooks.Open sPath
End If
Else
Workbooks(sFile).Activate
End If
End Sub
Vielen Dank für Hilfe.
Gruß, Scheinchen
Anzeige