Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1672to1676
1672to1676
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code beim Öffnen einer jeden Mappe ausführen

Forumthread: Code beim Öffnen einer jeden Mappe ausführen

Code beim Öffnen einer jeden Mappe ausführen
13.02.2019 14:49:55
Sven
Hallo zusammen,
ich möchte einen Codeblock beim Öffnen einer jeden Mappe ausführen. Er soll also nicht in worbook_open einer Mappe liegen, sondern im installierten Addin. Wie mache ich das?
Grüße
Sven
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code beim Öffnen einer jeden Mappe ausführen
13.02.2019 15:09:30
Daniel
Hallo Sven,
du kannst den Code zum Beispiel in deine Personal.xlsb unter DieseArbeitsmappe eintragen. Dann wird dieser bei jedem Öffnen einer Mappe ausgeführt.
Gruß
Daniel
AW: Code beim Öffnen einer jeden Mappe ausführen
13.02.2019 15:18:02
Sven
Hallo Daniel,
er müsste aber in ein Addin, welches einem größeren Nutzerkreis zur Verfügung gestellt wird. Dieses Addin läuft also eh schon bei jedem Anwender.
Grüße
Sven
Anzeige
Mit Klassenprogrammierung und einem...
13.02.2019 15:19:43
EtoPHG
einem, _WorkBook_Open() Event, geht das Sven.
Im Netz gibt es Beispiele zur Klassenprogrammierung.
Gruess Hansueli
AW: Code beim Öffnen einer jeden Mappe ausführen
13.02.2019 15:39:38
Nepumuk
Hallo Sven,
im Modul "DieseArbeitsmappe":
Option Explicit

Private mobjApplicationClass As clsApplication

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Set mobjApplicationClass = Nothing
End Sub

Private Sub Workbook_Open()
    Set mobjApplicationClass = New clsApplication
End Sub

in einem Klassenmodul mit dem Namen "clsApplication":
Option Explicit

Private WithEvents mobjApplication As Application

Private Sub Class_Initialize()
    Set mobjApplication = Application
End Sub

Private Sub Class_Terminate()
    Set mobjApplication = Nothing
End Sub

Private Sub mobjApplication_WorkbookOpen(ByVal Wb As Workbook)
    MsgBox Wb.Name
End Sub

An Stelle der MsgBox kommt natürlich dein Code.
Gruß
Nepumuk
Anzeige
AW: Code beim Öffnen einer jeden Mappe ausführen
13.02.2019 16:47:26
Sven
Super, vielen Dank.
Funktioniert.
Ich muss jedoch erst mal drüber sinnieren, was da genau passiert. :)
AW: Code beim Öffnen einer jeden Mappe ausführen
14.02.2019 11:35:37
Karl-Heinz
Hallo Max,
habe mich damit (Klassenprogrammierung) noch nicht intensiv beschäftigt. Hast Du vielleicht auch ein Beispiel für Worksheet-Activate, also dass mein AddIn mitkriegt, wenn in einer beliebigen anderen Mappe ein Blatt aktiviert wird.
Krieg es grad nicht hin....
viele Grüße
Karl-Heinz
Anzeige
AW: Code beim Öffnen einer jeden Mappe ausführen
14.02.2019 11:54:13
Nepumuk
Hallo Karl-Heinz,
das ist der identische Code, nur an stelle der Prozedur:
mobjApplication_WorkbookOpen
kommt das:
Private Sub mobjApplication_SheetActivate(ByVal Sh As Object)
    MsgBox Sh.Name
End Sub

Wähle in der linken Combobox über dem Codefenster mobjApplication, dann kannst du in der rechten Combobox die zur Verfügung stehenden Events auswählen.
Gruß
Nepumuk
Anzeige
AW: Code beim Öffnen einer jeden Mappe ausführen
14.02.2019 12:01:10
Karl-Heinz
Super,
vielen Dank.
VG KH

Forumthreads zu verwandten Themen

Wenn dann mit VBA und Makro starten
Thomas

Hallo guten Morgen liebe Helfer,
ich komme mit einer Wenn Dann Formel im VBA nicht klar. Wer kann mir bitte helfen.
WENN Zelle C1 = OK DANN starte Makro1 sonst MsgBox "Eingabe leider falsch"
Ich schaffe es einfach nicht das ich innerhalb der Abfrage ein Makro starten lasse möchte we...
31.01.2009 09:18:37
Thread-ID: 1045583
4 Beiträge
Anzeige
Datei mit ungültigem Blattnamen per Makro öffnen
sile1234

Hallo liebe Herber Gemeinde,
ich habe eine *.xls Datei die von einem Programm exportiert wird. Diese möchte ich gerne mit Excel weiterbearbeiten und mit einem Makro dort diverse Informationen herausziehen. Leider wird der Blattname mit Zeichen exportiert mit denen Excel 2003 nichts anfangen...
07.08.2009 14:14:42
Thread-ID: 1094255
4 Beiträge
Anzeige
vba Code ausführen, bei Wechsel zu Excel
Karsten

Hallo und guten Abend,
ich wechsel von einer Internetseite mit der Tastenkombination Alt Tab zu Excel.
Bislang habe ich den vba Code einem Button zugewiesen und über diesen ausgeführt.
Nun soll dieser vba Code ausgeführt werden, wenn Excel den Focus erhält, wenn das entsprechende Ar...
14.08.2009 21:53:59
Thread-ID: 1096096
6 Beiträge
Blatt öffnen - Makro ausführen
Frank

Hallo Zusammen!
Meine Frage: Wenn ich z.B. in einer Arbeitsmappe Tabelle5 öffne soll ein Makro ausgeführt werden. Wie muss die Befehlzeile hierfür aussehen?
Ich hoffe, es weiß jemand Rat!!! Danke!!!
Gruß Frank H.
10.09.2009 09:49:43
Thread-ID: 1101676
3 Beiträge
makro - datei mit variabler Datum öffnen
meixner

Hallo zusammen,
brauche ein Makro, daß eine Datei automatisch öffnet, deren Datum sich quartalsweise ändert!
Datei = "I:\99\8801\FM\IA files \Fondsbestand_20090907"
Datei heißt im Dez. aber Fondsbestand_20091207. Kann ich das Datum irgendwie variabel anlegen?
mit Datei = "I:\99\...
03.10.2009 21:02:11
Thread-ID: 1107038
2 Beiträge
Datei mit bestimmten Namen öffnen
Holla

Ich hab ein makro, dass auf Knopfdruck auffordert eine Datei zu öffnen.
Wie kann man es verhindern, dass die falsche ausgewählt wird. Die Namen der Dateien sind immer in folgender Form: XMLVJT2_JJJJ_Qx.xls , wobei JJJJ und X variabel sind.
Kann man da eine Fehlermeldung einbauen, wenn m...
13.11.2009 12:40:42
Thread-ID: 1116875
6 Beiträge
VBA-Code ausführen bei Änd. v. Pivotabellen | Herbers Excel-Forum
Al
Hallo,
ich möchte VBA-Code ausführen lassen, wenn in einer Pivotabelle ein Zeilen-,Spalten oder Seiten-Feld verändert/ausgewählt wird.
Worksheet_Calculate kann ich nicht nutzen, da der Code selbst im Worksheet Änderungen durchführt, die wieder Worksheet_Calculate aufrufen.
Worksheet_Ch...
15.01.2010 15:04:20
Thread-ID: 1130302
4 Beiträge
Makro Frage beim Öffnen von pdf Dateien verhindern
pdf

Hallo Herber Fans,
ich baue gerade an einem Code, der den Wert der ActiveCell als Dateinamen annimmt und aus einem vorgegebenen Pfad die Datei öffnen soll. Wenn keine Dateiendung angegeben ist, werden alle gängigen Endungen durchgeloopt. Bei .pdf Dateien habe ich nun das Problem, daß die Fr...
15.01.2010 17:42:31
Thread-ID: 1130350
3 Beiträge
Makro beim beim Öffnen von .xls autmatisch starten
Andi

hallo zusammen,ich habe schon recherchiert, aber leider nichts gefunden.deshalb wende ich michdirekt an die spezis.
wie kann ich ein makro automatisch beim start einer excel-datei starten und wo muß ich das makro plazieren??dank im voraus
mfg
11.04.2002 09:59:08
Thread-ID: 112333
4 Beiträge
Makro beim Öffnen starten
Hajo
Hallo Mikeschreibe Dein Makro in DieseArbeitsmappe unter
Private Sub Workbook_Open()
Gruß Hajo
15.04.2002 20:57:39
Thread-ID: 113531
11 Beiträge
Makro starten nach Öffnen der Arbeitsmappe
meixner

Hallo zusammen,
ich möchte das unteres Makro nach Eröffnen der Excel - Arbeitsmappe automatisch ausgeführt wird.
Was muss ich da machen?
Vielen Dank für Tips.
Dani.
Sub Update_bestände() 'Fondsbestände werden aktualisiert Range("B23").Select Sheets("AlleBestände_alleFonds")....
01.02.2010 11:23:24
Thread-ID: 1134745
6 Beiträge
Anzeige
Makroeditor stürzt beim Öffnen ab
andi

Hallo zusammen,
ich habe jetzt seit ca. 2 wochen das Problem, dass auf einem Rechner Excel abstürzt, sobald man versucht den Makro-Editor zu öffnen, oder irgendein Makro auszuführen. Es stürzt selbst dann ab, wenn man den Editor in einem neuen, leeren Workbook öffnet. Hat also nichts mit de...
24.02.2010 13:07:32
Thread-ID: 1140626
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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