Excel AddIn Makro .. before close

Hallo Andreas,

vielen Dank für Deine tolle Hilfe.

Was lange währt, wird endlich gut - jetzt hab ich alles verstanden und mein Problem ist gelöst.

Gruß

Der Code gehört in "DieseArbeitsmappe", nur da funktioniert er.

Andreas.

Ist das falsche Event.

Dein Workbook_BeforeClose wird nur dann ausgeführt wenn das AddIn geschlossen wird. ;-)

Wenn Du wissen willst wann eine Datei innerhalb der Applikation geschlossen wird, dann musst Du Dich der Events selbiger bedienen.

So nebenbei: Nach BeforeClose kommt kein Speichern mehr, wenn Du Änderungen in der Datei machen willst, dann nimm Before_Save. Und referenziere
nicht auf ActiveWorkbook sondern übergibt Wb an Deine Routine.

Es ist möglich das eine Mappe geschlossen wird die nicht aktiv ist...

Andreas.

Option Explicit

Option Compare Text

Dim WithEvents App As Application

Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)

  Dim AllesString As String

  With Wb

    If InStr(.Name, "_") = 0 Then Exit Sub

    With .Worksheets(1)

      If .Name <> "Text1" Then Exit Sub

      If .Range("B2").Value <> "Text2" Then Exit Sub

    End With

    AllesString = Right(.Name, 7)

  End With

  AllesString = Left(AllesString, 2)

  If Not IsNumeric(AllesString) Then Exit Sub

  If CInt(AllesString) <= 17 Then Exit Sub

  DasMakroDasLaufenSoll

End Sub

Sub DasMakroDasLaufenSoll()

  MsgBox "Hallo Welt"

End Sub

Private Sub Workbook_Open()

  Set App = Application

End Sub

Hallo Andreas,

danke für Deine Antwort und für den verbesserten Code.

Ich komm damit nicht klar, da ich nicht weiß, wo ich die Module einbinden soll. Alle Versuche schlugen bisher bei mir fehl.

Mein Ziel ist es, wenn bestimmte Dateien (deswegen die Abfragen auf Dateiname und -Inhalt) geschlossen werden, sollen einige Daten in eine andere Datei überspielt werden - deswegen der Versuch mit BeforeClose.

Dass das mit activeworkbook nicht funktioniert, habe ich verstanden.

Die Variablen habe ich alle zu Beginn deklariert - das Dim WithEvents App as Application kann ich dort nicht unterbringen, sondern nur in einem Objekt. Der Beginn meines Moduls:

Public AllesString As String' Dim WithEvents App As ApplicationOption Explicit

Option Compare Text

Sub DasMakroDasLaufenSoll()

  MsgBox "Hallo Welt"

End Sub

Unter DieseArbeitsmappe läuft:

Dim WithEvents App As Application

Private Sub Workbook_Open()

  Set App = Application

End Sub

Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)

    With Wb

        If InStr(.Name, "_") = 0 Then Exit Sub

            With .Worksheets(1)

                If .Name <> "Dienstarten" Then Exit Sub

                If .Range("B2").Value <> "Beschreibung" Then Exit Sub

            End With

            AllesString = Right(.Name, 7)

    End With

    AllesString = Left(AllesString, 2)

    If Not IsNumeric(AllesString) Then Exit Sub

    If CInt(AllesString) <= 17 Then Exit Sub

    DasMakroDasLaufenSoll

End Sub

Dies ins Modul zu schreiben, war auch erfolglos.

Ich habe nach jedem Versuch die Datei gespeichert und neu aufgerufen. Dann müsste er doch eigentlich in die Routine WorkbookOpen kommen - tut er aber nicht.

Was mach ich falsch??

Gruß

aber ich möchte es über direkten weg mit Excel bzw Excel-Makro machen, ganz sauber, so wie es sinnvoll und logisch ist und sein muß(müßte).

Mein AddIn ist ja keine Zauberkiste die Erdstrahlen aussendet, da ist auch ein ganz normales Makro drin.

Kannst Du Dir anschauen, kopieren, was auch immer, der Code ist nicht geschützt.

Andreas.