Makro beim Dateiöffnen

Forumthread: Makro beim Dateiöffnen
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Makro beim Dateiöffnen

11.04.2003 15:03:20

Marten

Hi
ich möchte gern ein Makro mit dem öffnen der Datei starten lassen.

Die Datei heißt: Kosten
Das Modul heißt: Menü
Und das makro heißt: Sub Erweiterungsmenü ()

kann mir jemand die entsprechnden Befehlskette aufschreiben????

Danke

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Makro beim Dateiöffnen

11.04.2003 15:06:24

Frederik Fuhrmann
Re: Makro beim Dateiöffnen

11.04.2003 15:06:24

Frederik Fuhrmann
Re: Makro beim Dateiöffnen

11.04.2003 15:22:29

Marten
Re: Makro beim Dateiöffnen

11.04.2003 15:45:50

Marten

Re: Makro beim Dateiöffnen

11.04.2003 15:06:24

Frederik Fuhrmann

Hallo!

Schreibe das unter "Diese Arbeitsmappe":

Private Sub Workbook_Open()
Run ("Makroname")
End Sub

Gruß
F.

Re: Makro beim Dateiöffnen

11.04.2003 15:06:24

Frederik Fuhrmann

Hallo!

Schreibe das unter "Diese Arbeitsmappe":

Private Sub Workbook_Open()
Run ("Makroname")
End Sub

Gruß
F.

Re: Makro beim Dateiöffnen

11.04.2003 15:22:29

Marten

danke erstmal. Excel versucht das Makro auszuführen, aber dabei kommet eine Fehlermeldung, dass der Auszuführende Bezug nicht erkannt werden kann.

Sub Workbook_Open()
Run ("Erweiterungsmenü1")
End sub

Hier ist das Makro das ausgeführt werden soll. Vielleicht kannst Könnt Ihr ja einen Fehler entdecken.

Sub Erweiterungsmenü1()
If MenüAnz >= 1 Then GoTo BYE
MenuBars(xlWorksheet).Menus.Add Caption:="&Kosten"
MenüAnz = MenüAnz + 1
MenuBars(xlWorksheet).Menus("Kosten").MenuItems.Add _
Caption:="&Import", OnAction:="Tabelleauslesen.Start", Before:=1
MenuBars(xlWorksheet).Menus("Kosten").MenuItems.Add _
Caption:="&Beenden", OnAction:="Tschüß", Before:=2

BYE:
End Sub

Re: Makro beim Dateiöffnen

11.04.2003 15:45:50

Marten

Habe das menü noch etwas Vereinfacht, es kommt aber immer noch die Fehlermeldung, das ein Bezug nich gefunden wird. Das makro wird aber richtig ausgeführt.

Sub Erweiterungsmenü1()
MenuBars(xlWorksheet).Menus.Add Caption:="&Kosten"
MenuBars(xlWorksheet).Menus("Kosten").MenuItems.Add _
Caption:="&Import", OnAction:="Tabelleauslesen.Start"
MenuBars(xlWorksheet).Menus("Kosten").MenuItems.Add _
Caption:="&Beenden", OnAction:="Tschüß"

End Sub