Byref Fehler
16.11.2021 11:11:40
Andy
ich bekomme ständig einen Byref Fehler und kann mir den nicht so ganz erklären....
'Variable dimensioniert als
Public sDateiZuPruefen as string
und sDateiZuPruefen = ActiveWorkbook.path & "\Test.xlsm
'abfrage im sub mit
'Er bringt mir hier immer den Fehler byref - wenn ich anstatt der datei den PFad "H:\Test.xlsm" eingebe, gehts
If IsWkbOpen(sDateiZuPruefen) = True Then....
'die zugehröige Funktion:
Public Function IsWkbOpen(ByRef strFullPathFileName As String) As Boolean
Dim hdlFile As Long
On Error GoTo FileIsOpen:
hdlFile = FreeFile
Open strFullPathFileName For Random Access Read Write Lock Read Write As hdlFile
IsWkbOpen = False
Close hdlFile
Exit Function
FileIsOpen:
IsWkbOpen = True
Close hdlFile
End Function