Add-In Abfragen ob offen
SteffenS
ich habe folgende Funktion:
Function IstMappeOffen(Dateipfad As String) As Boolean
Dim i As Integer
For i = 1 To AddIns.Count
If AddIns(i).Name = Dateipfad Then
IstMappeOffen = True
Exit Function
End If
Next
IstMappeOffen = False
End Function
Leider taucht bei der Schleife mein Add-In aber nicht auf und kann somit nicht abgefragt werden.
Ich habe die Mappe als xlam gespeichert und auch in der Arbeitsmappe die Eigenschaft auf Add-In gesetzt.
Was muss ich tun, damit meine Funktion funktioniert?
Vielen Dank im Voraus.
VG
Steffen Schmerler
Anzeige