Danke für eure Hilfe!
Rudi
Function MAPPEOFFEN(MappeName As String) As Boolean
Dim stName As String
On Error GoTo Nonexistent
stName = Workbooks(MappeName).name
MAPPEOFFEN = True
Exit Function
Nonexistent:
MAPPEOFFEN = False
End Function
Function IsWBOpen(ByVal WBName As String) As Integer
For i = 1 To Application.Workbooks.Count
If Application.Workbooks(i).FullName = WBName Then
IsWBOpen = i
Exit Function
End If
Next i
IsWBOpen = 0
End Function