Excel VBA Messagebox sofort bei Öffnen der Excel Datei starten?
Hallo zusammen,
ich habe für meine Arbeit so eine Art "Quiz" mit Excel Messageboxen erstellt.
Dem Anwender erscheinen Messageboxen mit Fragen und er kann dann bei jeder Frage auf Ja oder Nein klicken. Je nachdem, ob er auf Ja oder Nein geklickt hat kommt dann eine weitere Frage, die wieder mit Ja oder Nein zu beantworten ist und so weiter. Am Ende erscheint dann eine Messagebox mit einem Ergebnis.
Die Anwendung funktioniert auch soweit, allerdings kann ich sie nur direkt im VBA Editor starten. Was muss ich einfügen, damit die Messageboxen sofort starten, wenn der Anwender die Excel Datei öffnet?
Ich habe schon versucht, oben im Code Sub Workbook_Open () einzufügen, aber das hat nicht funktioniert.
Ich wäre dankbar für Tipps! Bitte leicht verständlich erklären, ich bin kein IT-ler :)
4 Antworten
Also wenn das so, oder so ähnlich da steht, muß es klappen. Evtl. sind die Sicherheitseinstellungen noch anzupassen, bzw. die Mappe in einen vertrauenswürdigen Speicherort zu schieben.
Private Sub Workbook_Open()
Call Quizstarten
End Sub
Ansonsten teste doch mal Schritt für Schritt.
Probiere mal das, um zu sehen, ob das Ereignis überhaupt ausgelöst wird:
Private Sub Workbook_Open()
Msgbox "Arbeitsmappen wurde geöffnet"
End Sub
Danke für die Hilfe, jetzt hat es geklappt!! :)
Nur nochmal zum Verständnis: Ich kann entweder meinen ganzen Code aus dem Modulblatt in das Sub Workbook_Open () kopieren oder ich rufe es einfach so wie du mit Call auf?
Liebe Grüße!
Den Aufruf des Quiz/Prozedur bei der Methode "Workbook" - "Open" einfügen. Also im Projektexplorer auf "Diese Arbeitsmappe" doppelklicken und dann die Methode Open auswählen.
Also wichtig ist, den Code an der richtigen Stelle einzufügen - also im Klassenmodul der Arbeitsmappe - deshalb Doppelklick auf "Diese Arbeitsmappe"
Danke für deine schnelle Antwort!
Ich habe jetzt in "Diese Arbeitsmappe" die Methode Open ausgewählt, aber die Messageboxen öffnen sich immer noch nicht automatisch beim Öffnen der Excel Datei.
Muss ich in meinem eigentlichen Code im Modul auch noch etwas ergänzen, damit es funktioniert?
Danke für deine Hilfe und viele Grüße
Hallo
Du kannst bei Diese Arbeitsmappe unter Worbook_Open die msgbox reingeben. Dann wird sie geöffnet, wenn du die Excel-Datei öffnest.
Wenn du sie in eine Tabelle unter Worksheet_Activate reingibst, wird die msgbox ausgeführt, wenn du die jeweilige Tabelle aktivierst.
Deine Excel Datei muss die Endung xlsm (oder alternativ xlsb) haben.
In den Sicherheitseinstellungen MUSS das Ausführen von Makros explizit erlaubt sein.
Danke für die Anleitung, die Screenshots haben sehr geholfen! Jetzt hat es bei mir geklappt :) Danke!!!