Private Sub Workbook_Open() funktioniert nicht...

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Private Sub Workbook_Open() funktioniert nicht...
von: Marcel
Geschrieben am: 12.11.2003 12:35:07

Hallo,

bin blutiger Anfänger in VBA. Ich versuche ein Makro beim öffnen der Mappe auszuführen.
habe den Code der über die FAQ's zu finden ist eingetippt in das Modul1 meiner Arbeitsmappe, wo auch die weiteren Makros sind. Es funktioniert nicht.
Hab' ich's an die falsche Stelle geschrieben?
Hier das was ich eingetippt habe:

Sub StatistikProgramm()
MsgBox "Ich bin das Statistikprogramm"
End Sub



Private Sub Workbook_Open()
     If MsgBox(prompt:=vbQuestion + vbYesNo) = vbYes Then Call StatistikProgramm
     End If
End Sub


Danke für Hilfe, Marcel
Bild


Betrifft: AW: Private Sub Workbook_Open() funktioniert nicht...
von: Hajo_Zi
Geschrieben am: 12.11.2003 12:46:39

Hallo Marcel

Private Sub Workbook_Open() gehört nicht in ein Modul sonder in VBA unter DieseArbeitsmappe.


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: AW: Private Sub Workbook_Open() funktioniert nicht...
von: WernerB.
Geschrieben am: 12.11.2003 12:49:44

Hallo Marcel,

das Makro "StatisikProgramm" gehört in ein normales Standard-Modul (z.B. "Modul1").
Das Makro "Workbook_Open" hingegen gehört in das Modul von "DieseArbeitsmappe"; dieses Modul öffnet sich, wenn Du im VB-Editor auf der linken Seite im VBA-Projekt-Explorer einen Doppelklick auf "DieseArbeitsmappe" ausführst.


Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).


Bild


Betrifft: Danke - funktioniert!
von: Marcel
Geschrieben am: 12.11.2003 13:43:58

Danke


Bild

Beiträge aus den Excel-Beispielen zum Thema " Private Sub Workbook_Open() funktioniert nicht..."