Sub Analyse_ein()
AddIns("Analyse-Funktionen").Installed = True
End Sub
Sub Workbook_Open()
AddIns("Analyse-Funktionen").Installed = True
End Sub
| VBA-Code: |
| Private Sub Workbook_Open() 'Bis Excel 2003 : AddIn "Analyse-Funktionen" sprachenabhängig aktivieren '11.11.2011, NoNet - www.excelei.de If Val(Application.Version) < 12 Then 'nur für Excel-Versione VOR Excel 2007 'Sprache der installierten EXCEL-Version prüfen Select Case Application.LanguageSettings.LanguageID(msoLanguageIDInstall) 'Für deutschsprachige Versionen : AddIn-Name "Analyse-Funktionen" Case MsoLanguageID.msoLanguageIDGerman, _ MsoLanguageID.msoLanguageIDGermanAustria, _ MsoLanguageID.msoLanguageIDGermanLuxembourg, _ MsoLanguageID.msoLanguageIDGermanLiechtenstein Application.AddIns("Analyse-Funktionen").Installed = True Case Else 'bei allen anderen Sprachen : Englischer AddIn-Name Application.AddIns("Analysis ToolPak").Installed = True End Select End If End Sub Gruß, NoNet |