Funktionsargumente
25.07.2007 15:48:38
Matthias
habe eine Funktion geschrieben und möchte mir gern bei Aufruf der Funktion die Funktionsargumente anzeigen lassen, leider klappt es nicht. Habt ihr eine Idee?
Function my_date(datum As Date) As String
Dim a As Variant
a = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
my_date = a(Month(datum) - 1)
End Function
Sub MoveCategory()
Application.MacroOptions _
Macro:="my_date", _
Description:="Den Zellbereich eingeben, der umgerechnet werden soll", _
Category:=2
End Sub
Danke und Gruß
Matthias
Anzeige