Addin.Installed -> Endlosschleife
02.05.2014 13:43:12
Hendrik
mit dem unten stehenden Code versuche ich mein Addin sich selbst installieren zu lassen. Das Kopieren der Datei scheint auch zu funktionieren, aber wenn ich die Installed-Eigenschaft des Addins auf true setzen möchte, springt der Prozess wieder auf den Kopf von Workbook_Open() und fängt mich in einer Endlosschleife? Was mache ich falsch?
Vielen Dank und schöne Grüße!
Private Sub Workbook_Open()
Dim strStatus As String, strMeldung As String
Dim blnUmweg As Boolean
Dim strUmweg As String
'Wenn nicht bereits als Add-In installiert, wird es installiert:
If AddIns("SC-Toolbox für Excel 2010").Installed = False Then
If MsgBox("Soll " & strHtbName & " in der Version " & strHtbVersion & " als Add-In _
installiert werden?" _
, vbQuestion + vbYesNo, strHtbName & "-Installer") = vbYes Then
'Es muss eine Mappe offen sein...
If Workbooks.Count = 0 Then blnUmweg = True
If blnUmweg = True Then
Workbooks.Add
strUmweg = ActiveWorkbook.Name
End If
'Add-In als Verknüpfung kopieren und aktivieren:
On Error GoTo errCopyInstall
AddIns.Add Filename:=ThisWorkbook.FullName, CopyFile:=False
On Error GoTo 0
AddIns("SC-Toolbox für Excel 2010").Installed = True
If blnUmweg = True Then Workbooks(strUmweg).Close
MsgBox strHtbName & " wurde erfolgreich installiert!", vbInformation, strHtbName & " _
_
-Installer"
End If
End If
Exit Sub
errCopyInstall:
MsgBox "Die Installation ist fehlgeschlagen." & vbCrLf & Err.Description, vbCritical, _
strHtbName & "-Installer"
End Sub