Mehrere Befehle im Workbook Open
Schritt-für-Schritt-Anleitung
Um mehrere Befehle im Excel VBA Workbook_Open Event auszuführen, kannst du folgende Schritte befolgen:
- Öffne die Excel-Datei und navigiere zum VBA-Editor (drücke
ALT + F11).
- Suche im Projektbaum nach
DieseArbeitsmappe (ThisWorkbook).
- Füge den folgenden Code in das
Workbook_Open Event ein:
Dim AppObject As New CAppLog
Private Sub Workbook_Open()
Set AppObject.app = Application
Load Ufrm_Main
Ufrm_Main.Show
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set AppObject.app = Nothing
End Sub
- Erstelle eine Klasse
CAppLog und füge den Code für das Zugriffsprotokoll hinzu:
Public WithEvents app As Application
Private Sub app_WorkbookOpen(ByVal WBook As Excel.Workbook)
Dim Benutzer As String
Dim Datum As String
Dim Uhrzeit As String
Dim Dateiname As String
Benutzer = Application.UserName
Datum = Format(Now, "dd.mm.yyyy")
Uhrzeit = Format(Now, "HH:MM")
Dateiname = WBook.FullName
Open "T:\Haupt\Personalakten\Kaufpreissammlung\Zugriffe_Kaufpreissammlung.txt" For Append As #1
Print #1, Benutzer & vbTab & Datum & vbTab & Uhrzeit & vbTab & Dateiname
Close #1
End Sub
- Stelle sicher, dass die Userform
Ufrm_Main existiert und richtig benannt ist.
Häufige Fehler und Lösungen
Alternative Methoden
Eine alternative Methode, um Befehle bei einem Workbook-Öffnen auszuführen, ist die Verwendung des Workbook_Open Events in Kombination mit der Application.WorkbookOpen Methode. Hierbei kannst du ohne eine separate Klasse arbeiten, indem du den Code direkt im DieseArbeitsmappe einfügst:
Private Sub Workbook_Open()
' Zugriffsprotokoll
Dim Benutzer As String
Benutzer = Application.UserName
' Weitere Logik hier...
' Userform anzeigen
Userform1.Show
End Sub
Praktische Beispiele
Ein praktisches Beispiel für die Verwendung des Workbook_Open Events könnte so aussehen:
Private Sub Workbook_Open()
MsgBox "Willkommen in der Datei!"
Load Ufrm_Main
Ufrm_Main.Show
End Sub
Hierbei wird beim Öffnen der Datei eine Willkommensnachricht angezeigt, bevor die Userform geladen wird.
Tipps für Profis
- Nutze das
Workbook_Open Event, um Berechnungen oder Datenaktualisierungen automatisch durchzuführen, wenn das Workbook geöffnet wird.
- Achte darauf, die Userform modal oder modeless anzuzeigen, je nach Bedarf. Bei
Ufrm_Main.Show vbModeless bleibt das Excel-Fenster aktiv, während die Userform angezeigt wird.
FAQ: Häufige Fragen
1. Wie kann ich zusätzliche Befehle im Workbook Open Event hinzufügen?
Du kannst einfach weitere VBA-Befehle innerhalb des Workbook_Open Events hinzufügen, z.B. Daten aktualisieren oder bestimmte Zellen formatieren.
2. Funktioniert das auch in Excel 2016?
Ja, die beschriebenen Methoden und Codes funktionieren in Excel 2016 und späteren Versionen, die VBA unterstützen.
3. Was mache ich, wenn ich eine Fehlermeldung bekomme?
Prüfe den Code auf Schreibfehler oder fehlende Objekte und stelle sicher, dass alle benötigten Userforms und Klassenmodule vorhanden sind.