Object Error bei Function
22.10.2014 19:56:48
Bay
'Beta Function. Posted by mybeam. Code für Reuters.com angepasst
Function GetBeta(ByVal tRange As Range) As Single
Dim xHttp As Object
Dim t, Ticker As String
Set xHttp = CreateObject("Microsoft.XMLHTTP")
Ticker = tRange.Text
xHttp.Open "GET", "http://www.reuters.com/finance/stocks/overview?symbol=" & Ticker, False
xHttp.Send
t = xHttp.responseText
t = Mid(t, InStr(t, ">Beta:") + 1)
t = Mid(t, InStr(t, ">") + 1)
t = Mid(t, InStr(t, ">") + 1)
GetBeta = Val(Left(t, InStr(t, "
Die Function scheint zu funktionieren. Wenn ich die folgende Sub starte und in Zelle E14 EDF.PA (das Ticker-Symbol von Electricité de France) steht, erhalte ich den korrekten Beta-Wert von 0.95.
Private Sub CommandButton4_Click()
Dim Beta As Double
Beta = GetBeta(Worksheets("Home").Range("E14"))
MsgBox Beta
End Sub
Nun würde ich die Function gerne in mein Userform einbauen und schlussendlich über eine select case Abfrage das Ticker-Symbol zuweisen. Allerdings habe ich bereits Schwierigkeiten, wenn die Function nicht auf Zelle E14 zugreifen soll, sondern auf eine von mir bestimmte Variable (trange).
Private Sub CommandButton5_Click()
Dim Beta As Double
Dim trange As Range
trange = EDF.PA
Beta = GetBeta(trange)
MsgBox Beta
End Sub
Wenn ich auf den CommandButton5 klicke erhalte ich immer einen Runtime error 424 object required.
Vermutlich habe ich was mit den Variabeln durcheinandergebracht, komm aber leider einfach nicht weiter.
Besten Dank für eure Hilfe!