ich habe nachfolgende Funktion, welche prüft ob eine Mappe offen ist:
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
Diese funktioniert bei Excel-Arbeitsmappen (XLSM,XLS) auch prima.Ich habe nun noch eine AddIn-Datei (Endung xlam), welche durch die Funktion nicht erkannt wird. Das "AddIn" ist nicht installiert und soll es auch nicht, da ich es bloß für die Anwendung brauche und beim Beenden auch wieder schließe.
Wie muss ich die Funktion anpassen, damit auch die XLAM-Datei erkannt wird?
Danke Euch schon mal.
VG Steffen