prüfen ob AddIn Datei öffen ist
08.05.2008 22:01:00
SteffenS
ich öffne von einer Mappe aus ein Addin.
Ab und an möchte ich abfragen ob dieses noch offen ist.
Leider funktioniert mein Code:
Function IstMappeOffen(Map As String) As Boolean
Dim istoffen As Boolean
Dim oa As Integer
istoffen = False
Map = UCase(Map)
For oa = 1 To Workbooks.Count
If (UCase(Workbooks(oa).Name)) = Map Then istoffen = True
Next oa
IstMappeOffen = istoffen
End Function
nicht.
Bei normalen Arbeitsmappen geht es aber.
Der Aufruf erfolgt normal mit:
'Symbolleistendatei öffnen
If IstMappeOffen(symbdat) = False Then
Workbooks.Open ThisWorkbook.Path & "\" & symbdat
End If
Was muss ich tun, damit ich abfragen kann ob die Datei (AddIn) offen ist?
Danke Euch.
MFG
Steffen Schmerler