'Rahan
'30.12.2010
'Checkt ob ein Exceldokument mit einen bestimmten Name offen ist.
'z.B. debug.print CheckExcelDokumentOffen("MeinExcel.xls")
Public Function CheckExcelDokumentOffen(strExcelName As String) As Boolean
 
    Dim Dokument As excel.Workbook
    For Each Dokument In excel.Application.Workbooks
        If Dokument.name = strExcelName Then
         CheckExcelDokumentOffen = True
         Exit Function
        End If
    Next Dokument
 
    CheckExcelDokumentOffen = False
End Function