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

workbook open event

Forumthread: workbook open event

workbook open event
13.12.2005 15:41:50
F
Hallo,
ich möchte, das direkt nach dem öffnen einer Arbeitsmappe,
eine MsgBox kommt. Dazu habe ich mir folgendes überlegt:

Private Sub Workbook_Open()
MsgBox ".........."
End Sub

Aber ich glaube, da habe ich es mir etwas zu einfach gemacht,
es funktioniert nämlich nicht.
Kann mir jemand sagen, was daran falsch ist?
Mit freundlichen Grüssen Frank
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: workbook open event
13.12.2005 15:43:49
DieterB
Hallo Frank
Alles korrekt
Gruß DieterB
AW: workbook open event
13.12.2005 15:44:37
Reinhard
Hi Frank,
Code gehört in "DieseArbeitsmappe"
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen
AW: workbook open event
13.12.2005 16:05:08
F
Hallo Reinhard,
meinst Du:

Private Sub ThisWorkbook_Open()
MsgBox ".........."
End Sub

Das geht auch nicht.
Mit freundlichen Grüssen Frank
Anzeige
AW: workbook open event
13.12.2005 16:19:27
DieterB
Beispiel
Gruß DieterB
AW: workbook open event
13.12.2005 16:25:05
F
Ah, ich habs verstanden.
Vielen Dank für deine Hilfe.
Mit freundlichen Grüssen Frank
freut mich, gern geschehen o.T.
13.12.2005 16:26:00
DieterB
Gruß DieterB
Anzeige
AW: workbook open event
13.12.2005 15:45:35
DieterB
Es sei denn, die Makrosicherheit ist auf hoch eingestellt.
Dann werden die Makros nicht ausgeführt.
Stelle sie auf mittel, dann wird nachgefragt,
stelle sie auf niedrig, dann werden sie ohne Nachfrage ausgeführt.
Gruß DieterB
AW: workbook open event
13.12.2005 16:03:04
F
Hallo Dieter,
die Sicherheitseinstellung ist mittel, und ich bestätige beim öffnen mit: Makros ausführen, aber die MsgBox erscheint trotzdem nicht.
Mit freundlichen Grüssen Frank
Anzeige
;

Forumthreads zu verwandten Themen

personl.xls und workbook_open
heiko

Hallo alle,
ich habe in der personl.xls dem ereignis workbook_open code zugeordnet. Nach dem speichern, schließen und wieder öffnen ist der code allerdings verschwunden. Ein "normales" modul wurde mitgespeichert, nur halt der code zu workbook_open nicht.
Hat jemand 'ne lösung?
Heiko...
24.10.2008 11:05:00
Thread-ID: 1018921
6 Beiträge
Anzeige
Application.Workbooks.Open(KplName) versagt
Matthias

Hallo miteinander,
ich habe ein Problem mit dem VBA-gesteuertem Öffnen einer Excel-Datei: Application.Workbooks.Open(KplName) oder
Set wb = Application.Workbooks.Open(KplName) schlägt zunächst NICHT fehl beim Aufrufen aus einem Makro.
Der gleiche Befehl aus einem anderen File...
11.02.2009 13:48:00
Thread-ID: 1049571
5 Beiträge
Start von Makro (Workbook_open) verhindern
Makro

Hallo Experten,
kann mir jemand von euch sagen, wie ich verhindern kann, dass ein Makro, welches beim Start einer Excel-Datei durchgeführt werden würde, ausgeführt wird, wenn diese Datei von einer anderen Datei per MAkro geöffnet wird.
Also:
Datei 1 öffnet per Makro1 Datei 2
Da...
17.02.2009 11:28:00
Thread-ID: 1051413
3 Beiträge
Worsheet open /workbook open
Jordan

Hallo zusammen,
ich habe hier bestimmt ein kleines, für mich aber kniffeliges Problem.
Ich habe eine Tabelle mit Unsätzen. In diesem Tabellenblatt habe ich es (mit Hilfe eines Forummitglieds) erreicht, dass mir die Umsätze in die passende Spalte der KW geschrieben werden. Ursrpünglich w...
11.05.2009 14:19:40
Thread-ID: 1074349
11 Beiträge
Hilfeee!! Verzweifelt!!! OpenWorkbook Aktion
Danki

Hallo zusammen,
bin kurz davor durchzudrehen. Folgendes Problem:
Ich habe eine Userform1 mit einer TextBox1. Die Userform wird durch
Sub Workbook_Open() UserForm1.Show End Sub
aufgrufen. Alles Super kein Problem wie zu erwarten.
Dann setze ich bei TextBox1 die Eigenschaft...
03.10.2009 15:31:38
Thread-ID: 1106978
8 Beiträge
Anzeige
Set objWorkbook = Application.Workbooks.Open(Activ
Hugo

Hallo Zusammen
Nachfolgender Code läuft auf Excel 2000 und 2007
Im 2000 egal ob ich die Datei lokal oder über ein Netzlaufwerk gestartet wird.
Im 2007 nur wenn ich die Datei lokal starte.
Wenn ich im 20007 die Datei über ein Netz-LW starte entsteht ein Error bei
Set objWor...
31.10.2010 21:53:57
Thread-ID: 1184589
3 Beiträge
xlOpenXLMWorkbook --> Variable nicht definiert
Peter

Guten Tag
Ich verwende nachstehenden Code, um xls-Dateien auf xlsm-Dateien umzustellen. Das klappt. Nun möchte ich auch xls-Dateien auf xlsx-Dateien umstellen. Da erhalte ich eine VBA-Fehlermeldung "Fehler beim Kompilieren: Variable nicht definiert" und markiert wird xlOpenXLMWorkbook
M...
19.10.2011 10:05:43
Thread-ID: 1234475
3 Beiträge
Workbook_open vs. Workbook_beforesafe
Albert

Guten Morgen zusammen,
ich verwende folgende Codes um bestimmte Ereibnisse zu protokollieren.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ' Sicherungen Protokollieren With Worksheets("History") LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows...
04.03.2012 11:31:31
Thread-ID: 1253506
7 Beiträge
Anzeige
VBA-Code in WorkbookOpen Methode per VBA einfügen
Jörg Müller
Hallo zusammen,
ich lese in einem Excel-File A mit Makros eine CSV-Datei B ein und schreibe diese als XLSM-Datei C in einen Ordner.
Ich schreibe dabei noch eine User-Form aus Datei A mit in die Datei C. Klappt soweit alles wunderbar!
Nur möchte ich beim Schreiben der File C noch VBA-Cod...
06.05.2015 18:03:06
Thread-ID: 1425053
4 Beiträge
Combobox Autofill anstatt open workbook?
Marco

Mahlzeit mitanand,
Ich bin gerade auf der Suche nach einem Befehl meine Combobox aktiv zu befüllen, das heißt wenn ich was im tabellenblatt ändere soll das sofort in der Combobox erscheinen und nicht erst nach dem speichern und erneuten öffnen. muss ich da nur einen befehl hinzufügen oder k...
30.06.2017 13:47:31
Thread-ID: 1566777
4 Beiträge
Anzeige
VBA - Application.EnableEvents
WalterK

Hallo zusammen,
mit Application.EnableEvents = False können verschiedene Ereignissteuerungen
von Excel ausgeschaltet werden, z.B.:
Workbook_BeforeSave
Workbook_BeforePrint
Workbook_BeforeClose
Gibt es noch weitere Steuerungen die damit ausgeschaltet werden können?
Gi...
18.09.2017 18:24:17
Thread-ID: 1581122
9 Beiträge
VBA Workbook_Open Laufzeitfehler 9
Bernd

Hallo liebe Experten,
ich bin gerade ein wenig am Verzweifeln.
Ich habe ein Workbook_Open-Makro, dass beim automatischen Durchlauf immer wieder einen Laufzeitfehler 9 ausspuckt und mitten im Code abbricht. Leider bekomme ich nicht "debuggen" angezeigt, weiß also nicht, wo der Fehler gen...
10.10.2017 09:57:33
Thread-ID: 1584971
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Workbook Open Event in Excel VBA

Schritt-für-Schritt-Anleitung

Um ein Workbook Open Event in Excel VBA zu erstellen, befolge diese Schritte:

  1. Öffne Excel und lade die Arbeitsmappe, für die Du das Ereignis erstellen möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Im Projekt-Explorer suche nach "DieseArbeitsmappe" (ThisWorkbook) unter dem entsprechenden Arbeitsmappen-Objekt.

  4. Doppelklicke auf "DieseArbeitsmappe", um das Codefenster zu öffnen.

  5. Füge den folgenden Code ein:

    Private Sub Workbook_Open()
   MsgBox "Willkommen in der Arbeitsmappe!"
End Sub

  6. Schließe den VBA-Editor und speichere die Arbeitsmappe als Makro-Enabled Workbook (*.xlsm).

  7. Schließe die Arbeitsmappe und öffne sie erneut, um die MsgBox beim Öffnen anzuzeigen.

Häufige Fehler und Lösungen

  • Fehler: Die MsgBox erscheint nicht.

    • Lösung: Stelle sicher, dass die Makrosicherheit auf "Mittel" oder "Niedrig" eingestellt ist. Wenn die Sicherheit auf "Hoch" eingestellt ist, werden die Makros nicht ausgeführt.

  • Fehler: Der Code wird nicht ausgeführt.

    • Lösung: Überprüfe, ob der Code im Modul "DieseArbeitsmappe" eingefügt wurde. Der Code sollte nicht in einem normalen Modul platziert werden.

Alternative Methoden

Es gibt verschiedene Möglichkeiten, um ein Workbook Open Event zu erstellen:

  • Verwendung von Workbook_Open in anderen Modulen: Du kannst den Code in ein Standardmodul schreiben und dann eine Prozedur erstellen, die das Workbook Open Event aufruft.

  • Excel VBA On Open Worksheet Event: Wenn Du spezifische Aktionen für ein bestimmtes Arbeitsblatt ausführen möchtest, kannst Du das Worksheet_Activate-Ereignis verwenden.

    Private Sub Worksheet_Activate()
   MsgBox "Dieses Arbeitsblatt ist aktiv!"
End Sub

Praktische Beispiele

Hier sind einige praktische Beispiele für das Workbook Open Event:

  1. Erstellen einer Begrüßungsnachricht:

    Private Sub Workbook_Open()
   MsgBox "Willkommen zurück!"
End Sub

  2. Automatisches Einrichten von Daten:

    Private Sub Workbook_Open()
   Sheets("Daten").Range("A1").Value = "Letzte Aktualisierung: " & Now
End Sub

  3. Öffnen einer anderen Arbeitsmappe:

    Private Sub Workbook_Open()
   Workbooks.Open Filename:="C:\Pfad\zur\anderen\Mappe.xlsx"
End Sub

Tipps für Profis

  • Verwendung von Application.OnTime: Du kannst zeitgesteuerte Aktionen innerhalb des Workbook Open Events einrichten, um bestimmte Makros nach einer festgelegten Zeit auszuführen.

  • Fehlerbehandlung: Füge Fehlerbehandlungsroutinen hinzu, um sicherzustellen, dass die Anwendung auch bei Fehlern stabil bleibt:

    Private Sub Workbook_Open()
   On Error GoTo Fehlerbehandlung
   MsgBox "Willkommen!"
   Exit Sub
Fehlerbehandlung:
   MsgBox "Ein Fehler ist aufgetreten: " & Err.Description
End Sub

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass mein Code ausgeführt wird?
Stelle sicher, dass die Makrosicherheit in Excel richtig eingestellt ist (auf "Mittel" oder "Niedrig").

2. Wo genau muss ich den Code für das Workbook Open Event platzieren?
Der Code sollte im Modul "DieseArbeitsmappe" (ThisWorkbook) eingefügt werden, nicht in einem normalen Modul.

3. Funktioniert das Workbook Open Event in allen Excel-Versionen?
Ja, das Workbook Open Event ist in den meisten modernen Excel-Versionen verfügbar, solange VBA unterstützt wird.

Beliebteste Forumthreads (12 Monate)

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