title image


Smiley Re: Eigene Funktionen im Funktions-Assistenten eintragen
Hallo Dejan,Fuer deine Funktionen kannst du im VBA-Editor wie folgt eine Beschreibung eintragen:1. Objekt-Browser starten 2. Dein VBA-Projekt in der Listbox links oben auswaehlen.3. Die Funktion mit der rechten Maustaste auswaehlen.4. Im Kontextmenue Properties... auswaehlen.5. In der Dialogbox die Beschreibung eingeben.Damit ist fuer deine Funktion eine Beschreibung unter der Kategorie "Benutzer definiert" erstellt.Eine Alternative waehre dieses per VBA durchzufuehren, mit dem Vorteil eigene Funktionen in schon vorhandene Kategorien plazieren zu koennen.Um einen optischen Unterschied gegenueber Excel internen Funktionen zu haben, nutze ich fuer eigene Funktionen nicht die Schreibweise in GROSS.Um auch fuer die Parameter eine Beschreibung erstellen zu koennen, suche auch ich schon seit langem nach einer Loesung, bisher leider ohne Erfolg ;-(Fuer den Eintrag der Beschreibung per VBA folgendes Makro:Public Sub Auto_Open()Rem Implement this application. Application.StatusBar = "Loading My Add-In >>> PLEASE WAIT..." Application.ScreenUpdating = False SetUDF_Description Application.ScreenUpdating = True Application.StatusBar = FalseEnd Sub Private Sub SetUDF_Description()Rem Set description for user defined functions. ' Use one of the following numbers to define the category. ' No. 1 = Financial ' No. 2 = Date & Time ' No. 3 = Math & Trig ' No. 4 = Statistical ' No. 5 = Lookup & Reference ' No. 6 = Database ' No. 7 = Text Application.MacroOptions Macro:="Reverse", _ Description:="Returns it's given argument, in reversed order." & vbCrLf & _ "This is a user defined function provided by NJK.", _ HasMenu:=False, MenuText:="", HasShortcutKey:=False, _ Category:=7, StatusBar:="", _ HelpContextID:="0", HelpFile:="" ' No. 8 = Locical ' No. 9 = Information ' No. 10 = Commands ' No. 11 = Customizing ' No. 12 = Macro Control ' No. 13 = DDE/External ' No. 14 = User DefinedEnd Sub Public Function Reverse(TextString As Variant) As VariantRem Returns it's given argument, in reversed order. Dim lngLenght As Long, lngI As Long On Error GoTo ErrorHandler TextString = CStr(TextString) lngLenght = Len(TextString) For lngI = lngLenght To 1 Step -1 Reverse = Reverse & Mid(TextString, lngI, 1) Next lngI Exit FunctionErrorHandler: Reverse = CVErr(xlErrValue)End FunctionAber vielleicht hift ja das schon mal weiter?Viele GruesseNorbert

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: