Hallo Zusammen,
ich möchte ein Add In erstellen, welches beim öffnen einer Excel-Arbeitsmappe den Namen der Mappe überprüft und gegebenenfalls eine Prozedur aufruft. Mein Ansatz nach Durchforsten von etlichen Foren und Hinweisen sieht folgendermaßen aus
Public WithEvents App As Application
Private Sub Workbook_Open()
Dim mappenname As String
Set App = Application
mappenname = App.ActiveWorkbook.Name
If mappenname = "Mappe1" Then
Call Makro1
End If
Dies führt aber zum Laufzeitfehler 91 "Objektvariable oder With-Blockvariable nicht festgelegt", da ich die gerade geöffnete Mappe noch nicht im Zugriff habe.
Kann mir jemand weiterhelfen?
|