Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
576to580
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

auto_open im xla

auto_open im xla
02.03.2005 11:26:11
Jörg
Schönen guten Tag allerseits,
ich habe folgendes Problem:
Bei jedem Start von Excel, also entweder mit leerer MAPPE1 oder durch Öffnen einer vorhandenen Tabelle, soll die Prüfung (per XLA AddIn) erfolgen, ob eine ganz bestimmte XLS-Datei geöffnet wurde. Wenn ja, dann Bearbeitungs-Makro ausführen, speichern und schliessen. Wenn nein, dann passiert halt nix.
Das Problem ist, dass ich in diese eine XLS-Datei kein Makro schreiben kann und alles automatisch ablaufen soll (ich will sie also auch nicht erst kopieren und dann ein makro einfügen). Geht also nur per AddIn.
Es klingt eigentlich einfach, aber ich weiss nicht, wohin ich die (private?)sub auto_open schreiben muss. Ich erhalte bei einer Abfrage des workbook.name (in einem Modul der XLA) immer einen Laufzeitfehler 91.
Vielen Dank im voraus.
Grüße aus dem verschneiten Norden, Jörg.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: auto_open im xla
02.03.2005 11:41:22
Thom@sCH
Hallo Jörg
In Excel gibts die Mappe "Personl.xls". Diese sollte im Ordner C:\Dokumente und Einstellungen\User\Anwendungsdaten\Microsoft\Excel\XLStart(User anpassen).
Wenn nicht kannst du diese erstellen.
Nun kannst du hier alle deine Makros hineinschreiben. Bei jedem Öfnen von Xls wird zuerst diese Mappe abgearbeitet.
Gruss Thomas aus der verschneiten Schweiz
AW: auto_open im xla
02.03.2005 13:20:20
Jörg
Hallo Thomas,
mit der personl.xls habe ich auch schon herumgebastelt. Das geht aber auch nicht so richtig, weil alle anderen dateien erst danach geöffnet werden.
Außerdem muss die personl.xls auch wieder geschlossen werden.
Ich habe es jedenfalls nicht hinbekommen.
Mit einem AddIn bin ich schon weiter gekommen, das scheint schon in die richtige Richtung zu gehen. Aber, ich erhalte eben immer den Laufzeitfehler.
Hier geht es übrigens um ein ähnliches Thema.
https://www.herber.de/forum/messages/579324.html
Gruß Jörg.
Anzeige
AW: auto_open im xla
02.03.2005 15:56:51
Heiko
Hallo Jörg,
ich habe unten gerade was neues reingestellt, müßte doch eigentlich auch dein Problem lösen, oder? Zumindest wird jedes öffenen einer Datei erkannt und wenn halt wb.name = deinebestimmteArebistmappe ist dann soll ein entprechender Code ablaufen.
Mit AddIns habe ich noch keine Erfahrung, kann dazu also nicht viel sagen.
Gruß Heiko.
PS: Rückmeldung wäre nett.
Anzeige
AW: auto_open im xla
03.03.2005 07:14:37
Jörg
Hallo Heiko,
ich habe unten geantwortet.
Vielen Dank.
Gruß Jörg.
AW: auto_open im xla
03.03.2005 07:38:11
Jörg
Hallo Heiko,
ich habe den Code ja wie beschrieben getestet. Jetzt wollte ich Ihn wie unten gezeigt ändern, aber es tut sich nichts. Die entsprechende Datei wird beim Öffnen trotz If-Anweisung nicht gesondert erkannt. Wo liegt denn da nun der Fehler?
Hier der Code des Klassenmoduls 1:
Option Explicit
Public WithEvents App As Application

Private Sub App_WorkbookActivate(ByVal Wb As Workbook)
If Wb.Name = "MeineDatei.xls" Then MsgBox "Sie ist es" Else MsgBox "Datei " &
Wb.Name & " wurde geöffnet!", vbInformation
End Sub



Private Sub App_WorkbookDeactivate(ByVal Wb As Workbook)
MsgBox "Datei " & Wb.Name & " wurde geschlossen!", vbInformation
End Sub

Dort wo nun bei der If-Anweisung nur die msgbox steht, müßte doch mein Code hin, oder?
Danke für die Hilfe,
Gruß jörg.
Anzeige
Siehe unten! o.w.T.
03.03.2005 07:49:37
Heiko
Gruß Heiko PS: Rückmeldung wäre nett

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige