Workbook.Path

Sub und

Function aus einem anderen Forum Thread entnommen, stecke aber gerade fest, er will auf biegen und brechen nicht den Workbook.Path übernehmen, hier mein Code

Sub Sample()
pfad = ThisWorkbook.Path & "B&O Manager.xlsm"
Dim Ret
Ret = IsWorkBookOpen & pfad
If Ret = True Then
MsgBox "File is open"
Else
MsgBox "File is Closed"
End If
End Sub


Function IsWorkBookOpen(FileName As String)
Dim ff As Long, ErrNo As Long
On Error Resume Next
ff = FreeFile()
Open FileName For Input Lock Read As #ff
Close ff
ErrNo = Err
On Error GoTo 0
Select Case ErrNo
Case 0:    IsWorkBookOpen = False
Case 70:   IsWorkBookOpen = True
Case Else: Error ErrNo
End Select
End Function

Wäre für Hilfe dankbar.

Lg Steffen