Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

XLA-Aufruf

XLA-Aufruf
pit_landin
Hallo an alle Forumsteilnehmer, ich brauche dringend Eure Hilfe!
Habe ein Problem seit dem Umstieg von Excel 2000 auf Excel 2003.
Ca. 500 Dateien verwenden die Module aus einer zentralen XLA.
Somit ist die Modulpflege nur an einer Stelle erforderlich und nicht an
500 verschiedenen. Aufruf erfolgt jeweils beim öffnen der Datei über:
Workbooks.Open Filename:=.....
Run (...)
Seit Umstieg auf Excel 2003 erscheint nach dem ersten Dateiaufruf immer die
Warnung XLA ist schon geöffnet. Kann man zwar bejahen ist aber
unwahrscheinlich lästig. Würde mich freuen, wenn jemand hier helfen kann.
Gruß pit_landin

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Na ja, 'ne .xla ist ein AddIn, das wird wohl...
26.08.2009 08:14:52
Luc:-?
...inzwischen permanent eingebunden sein wie es auch unter xl9 schon mögl gewesen wäre, Pit!
Damit ist das Workbook_Open-Notat überflüssig und kann entfernt wdn.
Morjen Luc :-?
AW: Na ja, 'ne .xla ist ein AddIn, das wird wohl...
26.08.2009 19:36:01
pit_landin
Wäre mir neu, werde es morgen mal so testen.
Gruß Pit
AW: XLA-Aufruf
26.08.2009 09:42:12
Luschi
Hallo pit_landin,
ich arbeite nach dem selben Prinzip. Die xla-Dateien werden nicht installiert, sondern bei Bedarf wie ein Workbook geöffnet.
Beim Öffnen der 1. xls-Datei ist noch alles i.O und die xla-Datei wird mit geöffnet.
Beim Öffnen der 2. xls-Datei soll wieder die xla-Datei geöffnet werden und deshalb kommt diese _ Excel-Meldung. Das kann man aber abfangen und gehört in alle 500 xls-Dateien:

Dim wbXLA As Workbook
On Error Resume Next
'nur Dateinamen angeben, keine Lw's- und Pfadangabe
Set wbXLA = Workbooks("eurotool.xla")
On Error GoTo 0
If wbXLA Is Nothing Then
'Workbook öffnen
Workbooks.Open("c:\...\eurotool.xla", ...)
Else
'Workbook schon geöffnet
Set wbXLA = Nothing
End If
Gruß von Luschi
aus klein-Paris
Anzeige
AW: XLA-Aufruf
26.08.2009 19:45:23
pit_landin
Dieser Ansatz des Abfangens ist mir zwar auch schon durch den Kopf gegangen,
aber bei weitem nicht so konkret im Vorschlag. Grundsätzlich so umsetzbar, wenn
es auch schon eine Weile her ist, daß ich die Module über ein Script eingetragen habe.
Wie ich mich zu erinnern glaube, mußte dies Zeilenweise erfolgen.
Wenn ich nichts Einfacheres finde, wird es wohl so gehen müssen.
Und alles nur wegen 2000 zu 2003. Mi......
Gruß Pit

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige