Hi, Danke, schau ich mir an ob ich das so hinbekommen ;)

Aja genau, das ist eine eigene Funktion:

Function IstDateiOffen(DateiName As String) As Boolean

    Dim DateiNr As Long
    Dim FehlerNr As Long
    
    On Error Resume Next
    DateiNr = FreeFile()
    
    Open DateiName For Input Lock Read As #DateiNr
    Close DateiNr
    FehlerNr = Err
    On Error GoTo 0
    
    Select Case FehlerNr
        Case 0
            IstDateiOffen = False
        Case 70
            IstDateiOffen = True
        Case Else
            'Error FehlerNr
             
    End Select
    
End Function

Danke LG