Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro beim Dateiöffnen

Makro beim Dateiöffnen
11.04.2003 13: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
Anzeige
Re: Makro beim Dateiöffnen
11.04.2003 13: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 13: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 13:22:29
Marten

Hi

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


Anzeige
Re: Makro beim Dateiöffnen
11.04.2003 13: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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige