VBA - XlXtrFun in Makro einbinden
07.01.2016 08:15:19
Christian
wünsche noch allen ein gutes, neues Jahr!
Ich möchte gerne das Add In XlXtrFun ( http://www.xlxtrfun.com/ ) in ein Makro integrieren, sodass man das Add In nicht extra aktivieren muss. Das soll auch dafür vorsorgen, dass man das Add In nicht immer mitschicken muss, wenn man das Excel-Blatt weiterschickt.
Leider handelt es sich hierbei um ein xll Add In. Dies findet man in der zip-Datei in folgender _
Datei XtrFun Declarations Release 200103.xls
Sub TestSpline()
Dim l_strResultString As String
Dim l_dReturnedY As Double
Dim l_lIndex As Long, _
l_lFunctionReturnValue As Long
GetInputDataFromSheetNumericalFunctions2D
l_strResultString = "Test X Splined Y"
For l_lIndex = 0 To lNumberOfTestXs - 1
l_lFunctionReturnValue = xtf_Spline( _
dX1s(0), _
dY1s(0), _
lNumberOf1s, _
dTestXs(l_lIndex), _
l_dReturnedY)
l_strResultString = l_strResultString & Chr$(10) & dTestXs(l_lIndex) & Chr$(9) & _
l_dReturnedY
Next l_lIndex
MsgBox l_strResultString
End Sub
Leider kann ich den Code nicht einbinden. Hat jemand eine Idee? Vielen Dank im Voraus!
https://www.herber.de/bbs/user/102636.zip
-> Zip-Datei zum Add In!
Viele Grüße Christian