AddIn Workbook_Open - Fehler | HERBERS Excel Forum

Hallo liebe, unermüdliche Helfer,
mit meinen laienhaften xl-Kenntnissen habe ich mir 2 Makros gebastelt (mittels Recherche hier im Archiv). Beide funktionieren einwandfrei.
Da ich diese beiden Makros nun aber nicht in jede Datei extra reinkopieren möchte (unter: DieseArbeitsmappe), speicherte ich eine ansonsten leere xlsx-Datei als AddIn im xlam-Format ab...
Nun erscheint beim Öffnen jeder xl-Datei od. auch einer leeren Mappe folgende Fehlermeldung:
Laufzeitfehler 91:
Objektvariable oder With-Blockvariable nicht festgelegt
Klicke ich auf Debuggen wird die Zeile
fn = "d:\zw\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)...
gelb markiert u. es kommt die Meldung:
Code kann im Haltemodus nicht ausgeführt werden.
Wo liegt der Fehler?
Option Explicit ' Variablendefinition erforderlich

Private Sub Workbook_Open()
Dim aw As String
Dim fn As String
Const bytZeit As Byte = 3   'hier die Zeit für die Sichtbarkeit der MsgBox einstellen
Dim objWSH As Object
Dim intMSG As Integer   'wichtig für die Zeit der Sichtbarkeit der MsgBox
fn = "d:\zw\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & "---" & Format(Now, " _
YY-MM-DD") & "_" & Format(Now, "hh-mm") & ".xlsm"
aw = MsgBox("Soll eine Sicherungskopie erstellt werden?", vbQuestion + vbYesNoCancel)
If aw = vbCancel Then
ActiveWorkbook.Close False
End If
If aw = vbYes Then
On Error Resume Next
ActiveWorkbook.SaveCopyAs fn
If Err.Number > 0 Then
MsgBox Err.Description, vbCritical, "FEHLER!"
Err.Clear
aw = vbNo
Else
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("Datei wurde erfolgreich gespeichert unter:" & vbCr _
& vbCr _
& fn & vbCr, bytZeit, "H I N W E I S ...")
Set objWSH = Nothing
End If
On Error GoTo 0
End If
If aw = vbNo Then
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("Es wurde keine Sicherungskopie erstellt!" & Space(10), bytZeit, " _
Warnung...")
Set objWSH = Nothing
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim SaveAsUI As Boolean
Dim aw2 As String
Const strPfadArchiv As String = "D:\zw2\" 'Archiv-Verzeichnis-anpassen!!
aw2 = MsgBox("Soll eine Sicherungskopie für das NETZWERK erstellt werden?" & vbCr _
& vbCr _
& "(  Zu finden unter:" & vbCr _
& Space(5) & strPfadArchiv & "  )", vbQuestion + vbYesNo)
If aw2 = vbNo Then
Exit Sub
End If
If aw2 = vbYes Then
ActiveWorkbook.SaveCopyAs strPfadArchiv & ActiveWorkbook.Name
End If
End Sub

Kann mir jemand helfen - bin echt am Verzweifeln.
Gruß Dirk C.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Dirk…
Verwenden von Ereignissen mit dem Application-Objekt
Bevor Sie ein Ereignis mit dem Application-Objekt verwenden können, müssen Sie ein Klassenmodul erstellen und für Ereignisse ein Objekt vom Typ Application deklarieren. Nehmen Sie beispielsweise an, dass ein neues Klassenmodul erstellt wird, das EventClassModule heißt. Das neue Klassenmodul enthält den folgenden Code:

Public WithEvents App As Application

Nachdem das neue Objekt mit Ereignissen deklariert wurde, wird es im Klassenmodul im Dropdownlistenfeld Objekt angezeigt, und Sie können Ereignisprozeduren für das neue Objekt schreiben. (Wenn Sie das neue Objekt im Feld Objekt auswählen, werden die gültigen Ereignisse für dieses Objekt im Dropdownlistenfeld Prozedur angezeigt.)
Bspw kann dieses angelegt wdn:

Private Sub App_WorkbookOpen(ByVal wb As Workbook)
If wb.Name  ThisWorkbook.Name Then
'… Anm: This… bezieht sich hier auf das AddIn! _
font>
End If
End Sub

Bevor die Prozeduren ausgeführt werden können, müssen Sie jedoch das deklarierte Objekt im Klassenmodul mit dem Application-Objekt verbinden. Sie können dazu in allen Modulen (zB dem DokumenKlassenModul der AddIn-Arbeitsmappe) den folgenden Code verwenden.
Beispiel

Dim X As New EventClassModule
Sub InitializeApp()
Set X.App = Application
End Sub

Nachdem die InitializeApp-Prozedur ausgeführt wurde, zeigt das App-Objekt im Klassenmodul auf das Application-Objekt von Microsoft Excel, und die Ereignisprozeduren im Klassenmodul werden ausgeführt, wenn die Ereignisse auftreten.
Anmerkung: Dunkelrote Einfügungen sind von mir!
Gruß, Luc :-?

Option Explicit Public WithEvents App As Application Const strPfadArchiv As String = "D:\zw\" 'Anm: Archiv-Verzeichnis-anpassen!! Private Sub App_WorkbookOpen(ByVal Wb As Workbook) If Wb ThisWorkbook Then 'Anm: This… bezieht s. aufs AddIn, um's auszuschließ! MsgBox "Hier kommt der SaveCopyAs-Code für " & strPfadArchiv, , Wb.Name ' Wb.SaveCopyAs strPfadArchiv & Wb.Name End If End Sub

Beliebteste Forumthreads (12 Monate)

AddIn Workbook_Open - Fehler

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread