Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2024 17:36:21
Überprüfung des Datenformates der Zwischenablage
14.05.2024 15:50:45
Megensum pro Lieferant aufgrund Datum An- und Auslieferung
14.05.2024 15:38:40
Makro und Formeln zusammenführen
14.05.2024 15:23:59
VBA Dateiname
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1284to1288
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
1284to1288
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

WorkbookOpen-Ereignis "global"

WorkbookOpen-Ereignis "global"
21.11.2012 16:54:17
Dave
Hallo zusammen,
sorry wegen des ungenauen Betreffs, aber ich wußte nicht, wie ich das besser beschreiben kann.
Man kann in jeder Datei über das Workbook-Open-Ereignis Code ausführen lassen. Dieser Code muss aber IN dieser Datei stehen.
Gibt es eine Möglichkeit, dass diese Ereignis auch aus einer anderen Datei heraus "abgefangen" wird?
Hintergrund:
Ich möchte in meiner personl.xls eine Liste pflegen, in der jede Excel-Datei, die ich öffne, automatisch eingetragen wird. Die gängigen Betriebssystem-Funktionen für "Recent-Dateien" sind mir da zu unflexibel, so dass ich mir daraus selbst was basteln will.
Der Code dafür ist irrelevant, das kriege ich hin, aber ich bräuchte einen "Trigger", der ausgelöst wird, ohne das die geöffnete Datei entsprechenden Code enthält.
Danke vorab und Gruß
David

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: WorkbookOpen-Ereignis "global"
21.11.2012 18:31:54
Tino
Hallo,
geht z. Bsp so, im Coder von Modul1 läuft dann Dein Makro für die Liste aufbauen.
Code kommt in die PERSONAL.XLSB.
kommt als Code in DieseArbeitsmappe 
Option Explicit 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
Set oKlasseExcel = Nothing 
End Sub 
 
Private Sub Workbook_Open() 
Set oKlasseExcel = New Klasse1 
Set oKlasseExcel.App = Application 
End Sub
kommt als Code in Modul1 
Option Explicit 
Public oKlasseExcel As Klasse1 
 
Sub Mein_Makro(strFileName$) 
MsgBox "Mein Makro! Active Datei = '" & strFileName & "'" 
End Sub
kommt als Code in Klasse1 
Option Explicit 
 
Public WithEvents App As Application 
 
Private Sub App_WorkbookOpen(ByVal Wb As Workbook) 
If Not Wb.IsAddin Then 
    If Wb.FullName <> ThisWorkbook.FullName Then 
        Call Mein_Makro(ActiveWorkbook.Name) 
    End If 
End If 
End Sub
Gruß Tino

Anzeige
persönlich würde ich ein AddIn verwenden
21.11.2012 19:41:34
Tino
Hallo,
ich würde dies über ein AddIn machen und die Daten
Zeilenweise in eine Textdatei (csv) schreiben.
Gruß Tino

AW: persönlich würde ich ein AddIn verwenden
22.11.2012 10:24:33
Dave
Hallo Tino,
das funktioniert genau so, wie ich das wollte. Vielen Danke.
Mit Klassenmodulen hab ich bisher noch nichts gemacht und weiß eigentlich gar nicht, wofür die gut sind.
Mit Addins hab ich noch nicht so viel Erfahrung. Oft war es so, wenn ich irgendwas manuelles als Addin aktiviert habe, dass dann andere aufgerufene Tabellen, in denen "Auto-Code" abläuft, nicht mehr richtig funktioniert haben und Fehlermeldungen produzierten.
Vielen Dank nochmal.
Gruß
David

Anzeige
Vorgehensweise ist fast gleich
22.11.2012 15:59:16
Tino
Hallo,
Vorgehensweise im Addin ist wie auch in der Persönlichen Mappe.
Man muss nur die Dateien abfangen die nicht Dokumentiert werden sollen,
z. Bsp. andere Addins oder die csv in die geschrieben wird.
Hier ein Beispiel Addin,
die Dokumentation wird auf dem Desktop in der Excel_Verwendung.csv durchgeführt.
Addin über den AddIn-Manager einbinden.
https://www.herber.de/bbs/user/82727.xla
Gruß Tino

AW: Vorgehensweise ist fast gleich
22.11.2012 16:18:36
Dave
Ok, werde ich bei Gelegenheit mal testen, bin aber jetzt zu sehr im Streß.
Hab mir die "History" jetzt erst mal so gebastelt, wie ich mir das vorgestellt hatte und es funzt auch.
Danke für deine Hilfe.
Gruß
David
Anzeige

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4