vba und binder

eagle

Mitglied
Tach

hab da nochmal eine Frage

Wie kann ich in Excel herausfinden ob sich das Dokument in einer Sammelmappe befinden oder nicht

in Word mach ich das folgender masen:
Code:
' Testet ob das Dokument in einer Sammelmappe ist
Private Function isSammelmappe() As Boolean
  isSammelmappe = False
  ' Wenn ein Fehler auftritt ist es keine Sammelmappe
  On Error GoTo KeineSammelmappe

  ' Parent des Dokumentes auslesen
  Dim objBinder As OfficeBinder.Binder
  Set objBinder = ActiveDocument.Container.Parent
  isSammelmappe = True
KeineSammelmappe:
End Function

Dies ist eine Methode welche einen Bool-Wert zurückliefert ob es in einer Sammelmappe ist oder nicht.

in Excel erhalte ich diese Fehlermeldung:
Die Methode 'Container' für das Objekt '_Workbook' ist fehlgeschlagen

Kennt jemand eine andere Möglichkeit dies zu bewerkstelligen

besten Dank für allfällige Antworten.
 
Zurück