Office: 2 Application.MacroOptions gehen, beim 3ten gibts ein Fehler

daki · 9. Mai 2012

Hallo

Ich habe folgenden Code um die macroOptions zu definieren:

Code:

Public Sub FunctionsDescriptions()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim neuesWB As Workbook
Dim a As String

Set neuesWB = Workbooks.Add
neuesWB.Unprotect

Dim ArgumentDesc1() As Variant
Dim ArgumentDesc2() As Variant
Dim ArgumentDesc3() As Variant

ArgumentDesc1() = Array("Angabe des Elements", "Angabe der Position", "Angabe des Trennzeichens")

Application.MacroOptions _
Macro:="yp_SplitElement", _
Description:="Funktion teilt ein Element auf und liefert ein Teilresultat zurück", _
HasMenu:=True, _
MenuText:="menu", _
HasShortcutKey:=True, ShortcutKey:="U", _
Category:="_Yourposition Functions Library", _
StatusBar:=ArgumentDesc1, _
ArgumentDescriptions:=ArgumentDesc1

ArgumentDesc2() = Array("Angabe des Elements (Array)", "Angabe des Trennzeichens")

Application.MacroOptions _
Macro:="yp_AvgArrayNumber", _
Description:="Funktion teilt ein Element auf und liefert den Durschnittswert aller Teile", _
HasMenu:=True, _
MenuText:="menu", _
HasShortcutKey:=True, ShortcutKey:="U", _
Category:="_Yourposition Functions Library", _
StatusBar:=ArgumentDesc2, _
ArgumentDescriptions:=ArgumentDesc2

ArgumentDesc3() = Array("Angabe Funktion: 1 = Insert / 2 = Delete", "Jede X Zeile", "Optional: Anzahl der einzufügenden Zeilen, Default 1", "Optional: Beginn Range", "Optional: Ende Range, Default: Zeilen alle verwendeten Zeilen")

Application.MacroOptions _
Macro:="yp_InsertOrDeleteRows", _
Description:="Funktion löscht Zeilen oder fügt Zeilen ein (1 = insert / 2 = delete). Dabei kann definiert werden, nach welcher Anzahl Zeilen eingefügt oder geschlöscht werden sollen, wieviele Zeilen eingefügt werden sollen (Optional, Default: 1) sowie welchem Range an dies der Fall sein soll (Start und Ende, Default: Alle Zeilen).", _
HasMenu:=True, _
MenuText:="menu", _
HasShortcutKey:=True, ShortcutKey:="U", _
Category:="_Yourposition Functions Library", _
StatusBar:=ArgumentDesc3, _
ArgumentDescriptions:=ArgumentDesc3

Application.DisplayAlerts = False

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die ersten beiden MarcoOptions Definitionen funktionieren tiptop, beim 3ten bekomme ich folgende Fehlermeldung:
"die methode 'macrooptions' für das objekt '_application' ist fehlgeschlagen"

Warum erkennt Excel zuerste die Methode und danach nicht mehr?

Vielen Dank für einen Tipp und viele Grüsse

:)

ChrisVBA · 16. Mai 2012

Hallo Daki!

die Beschreibung darf maximal 255 Zeichen lang sein. Deine Beschreibung

"Funktion löscht Zeilen oder fügt Zeilen ein (1 = insert / 2 = delete). Dabei kann definiert werden, nach welcher Anzahl Zeilen eingefügt oder geschlöscht werden sollen, wieviele Zeilen eingefügt werden sollen (Optional, Default: 1) sowie welchem Range an dies der Fall sein soll (Start und Ende, Default: Alle Zeilen)."

hat aber 318 Zeichen.

Du müsstest sie also auf maximal 255 Zeichen kürzen, dann passt es.

Viele Grüße!

Christian

Office: 2 Application.MacroOptions gehen, beim 3ten gibts ein Fehler

2 Application.MacroOptions gehen, beim 3ten gibts ein Fehler

2 Application.MacroOptions gehen, beim 3ten gibts ein Fehler

2 Application.MacroOptions gehen, beim 3ten gibts ein Fehler - Similar Threads - Application MacroOptions 3ten

Application Guard für Office

Progressbar / Application-Anzeige

UserForm im Vordergrund halten wenn application visible=false

Die Methode 'Run' für das Objekt 'Application' ist fehlgeschlagen

HILFE ! Word für Win 95 Application file funktioniert nicht mehr

Application hang