nachfolgender Code funktioniert einfach nicht
Laufzeitfehler 9
Es soll geprüft werden ob die Datei (OFFD1) existiert, wenn ja dann öffnen, wenn bereits geöffnet dann ok.
Danke sehr!
Gruß, Ludmila
Function DataOffnen(sFile As String) As Boolean
' sFile = "OFFD1.xlsm"
On Error Resume Next
DataOffnen = Not Workbooks(sFile) Is Nothing 'hier kommt die Fehlermeldung
End Function
Sub Verwaltung_Oeffnen()
Dim sPfad As String
Dim sFile As String
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
End With
sPfad = ThisWorkbook.Path & "\"
sFile = "OFFD1.xlsm"
If Dir(sPfad & sFile) = "" Then ' Prüfen ob Datei im gleichen Verzeichnis
MsgBox "Die Datei ist nicht vorhanden", vbCritical + vbOKOnly, "Datei nicht vorhanden _
oder verschoben..."
ThisWorkbook.Close
End If
If Not DataOffnen(sPfad & sFile) Then
Workbooks.Open sPfad & sFile
ActiveWindow.Visible = False
Workbooks("Verwaltung.xlsm").Activate
ActiveWindow.Visible = True
Sheets("Eingabe").Activate
End If
With Application
.ScreenUpdating = True
.DisplayAlerts = True
.EnableEvents = True
End With
End Sub