Check alle échte Black Friday-deals Ook zo moe van nepaanbiedingen? Wij laten alleen échte deals zien

[VBA Excel 2003] Toewijzen UDF en category met Excel add-in

Pagina: 1
Acties:

  • EvdB
  • Registratie: November 2001
  • Laatst online: 14-11 17:07
Ik heb een Excel add-in gemaakt met enkele functies. Deze wil ik in een aparte categorie plaatsen met de volgende subroutine:

code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Auto_Open()
Dim strMacroName, strCategory, strDescription, strHelpFile, strHelpContextId As String
Dim F(600, 5) As String
Dim i As Long
Dim CHMFile As String

F(1, 1) = "Nieuwe category": F(1, 2) = "Functie1I": F(1, 3) = "Beschrijving": F(1, 4) = "help.chm": F(1, 5) = 1000

    For i = 1 To 1
        strCategory = F(i, 1)
        strMacroName = F(i, 2)
        strDescription = F(i, 3)
        strHelpFile = F(i, 4)
        strHelpContextId = F(i, 5)
        
        Application.MacroOptions Macro:=strMacroName, Description:=strDescription, Category:=strCategory, HelpContextID:=strHelpContextId, HelpFile:=strHelpFile
                
    Next i
End Sub


Dit werkt wel als het een gewone subroutine is wanneer je al een leeg workbook hebt, maar niet als je deze aanroept via Auto-open() omdat er nog geen workbook open is. Heeft iemand hier een oplossing voor?

  • EvdB
  • Registratie: November 2001
  • Laatst online: 14-11 17:07
Helemaal niemand, die een idee heeft?

Verwijderd

even zelf een (onzichtbare) werkmap toevoegen (workbooks.add) alvorens de macrocategorietoewijzingscode uitgevoerd wordt?