Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo Herbert G.
Ich glaube jetzt funktionierst 
Nach einigem Hin- und Hergeschiebe müsste es jetzt klappen.

Deine Aussage :"zuerst solltest du keine normalen Makros (Sub ...) in "DieseArbeitsmappe" haben. Diese gehören AUSSCHLIESSLICH in "StandardModul"e"
hat mich dazu bewogen mal einiges zu probieren bis es augenscheinlich klappt!
Ich versuche das mal mit meinen Worten zu definieren:
Sub's denen ich einen Namen gebe gehören in "Modul(x)"
Sub's deren Namen von VBA vorgegeben sind (z.B.: Workbook_BeforeSave,   Workbook_AfterSave,   Workbook_BeforeClose,   Workbook_BeforePrint....(die habe ich nämlich verwendet)) gehören in "DieseArbeitsmappe".
Ist das so verständlich und korrekt ?
Zumindest scheint es so zu funktionieren, aber da fehlt mir das Basiswissen zu.
Ich sage nochmal !Danke! , mit dem Tipp bin ich weitergekommen.

Bis demnächst 

Herbert

Hallo Alle Miteinander

Ich habe ein Makro das mir nach einer eingestellten meine Datei schliesst.
Dies Makro befindet sich in
Microsoft Excel Objekte
       Diese Arbeitsmappe
Sub Nach_Zeit_beenden()                                                   
Zeit = Now + TimeValue("00:01:00")                             ' Läuft 1 min
Application.OnTime Zeit, "Speichern_und_Beenden"     ' Sub "Speichern und Beenden" aufrufen
End Sub


Das Sub "Speichern_und Beenden" befindet sich in
Module
    Modul1
Sub Speichern_und_Beenden()
Dateiname = Application.ThisWorkbook.Name   
Workbooks(Dateiname).Close SaveChanges:=True 
End Sub

Das ganze funktioniert und die Datei schliesst nach angegebener Zeit

Wenn ich jetzt in Modul 1 vor dem speichern noch eine Sub xyz aufrufen möchte die sich in
Microsoft Excel Objekte
       Diese Arbeitsmappe

befindet,(weil sie da auch beim normalen speichern oder beenden aufgerufen wird) kommt die Fehlermeldung "Sub oder Function nicht definiert".

Ich könnte diese Sub xyz auch in auch in
Module
    Modul1
Sub xyz
einauen, dann funktioniert es.
Dies Sub ist dann aber 2(zwei) mal vorhanden.

Wie schaffe ich es aus Module/Modul1 dies Sub xyz aus "diese Arbeitsmappe aufzurufen".

Weiss jemand Abhilfe

Hallo alle miteinander und ein gesundes erfolgreiches 2016

Ich habe in einer datei1 folgendes Makro in Module->Modul1:

Sub auto_open()                                                            'Startet mit Programmstart
Zeit = Now + TimeValue("00:02:00")                             ' Läuft 2 min
Application.OnTime Zeit, "Speichern_und_Beenden"     ' Sub "Speichern und Beenden" aufrufen
End Sub

Sub Speichern_und_Beenden()
Dateiname = Application.ThisWorkbook.Name               ' Thisworkbook.Name schliesst das Workbook von dem aus es gestartet wurde
Workbooks(Dateiname).Close SaveChanges:=True      ' Programm gegebenenfalls speichern und beenden
End Sub

Dieses Makro schliesst meine Datei1 nach 2min.
Das funktioniert und ist so gewollt.
Also:Starte ich dies Datei1 wird sie nach 2Min beendet so wie ich es möchte.

Mein Problem:
Starte ich diese Datei1 aber aus einer anderen Datei2 mit dem Makro:

Sub test()
Workbooks.Open "d:\Datei1.xlsm"
End Sub

wird die Datei1 geöffnet, schliesst sich aber nicht mehr nach 2min sondern bleibt auf bis ich sie von Hand schliesse.

Jemand eine Lösungsidee  ?