Herbers Excel/VBA-Archiv
Aktienkurse per Zelle ausgeben VBA
- Aktienkurse per Zelle ausgeben VBA von Benjamin G. vom 25.10.2014 15:19:31
 |
Betrifft: Aktienkurse per Zelle ausgeben VBA
von: Benjamin G.
Geschrieben am: 25.10.2014 15:19:31
Hallo zusammen,
anbei den Code den ich für meine elegante Zellensuche für Aktienkurse verwende:
------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ie As InternetExplorer, doc As HTMLDocument, rng As Range, ticker As String, quote As _
String
Set rng = Sheets("Tabelle1").Range("A1")
ticker = rng.Value
Set ie = CreateObject("Internetexplorer.application")
If Target.Row = rng.Row And Target.Column = rng.Column Then
ie.navigate "http://finance.yahoo.com/q?s=" & ticker & "&ql=1="
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Set doc = ie.document
quote = doc.getElementById("yfs_l84_" & ticker).innerText
Cells(1, 2).Value = quote
End If
ie.Application.Quit
End Sub------------------------------------------------------------
Ich würde diesen gerne so erweitern das ich in der kompletten Spalte die Bezeichnung der Aktie angebe und in der nächsten Spalte der aktuelle Wert erscheint.
Leider bin ich bis dato auf kein Ergebnis gekommen, könnt mir jemand da bitte weiterhelfen?
Vielen Dank im Voraus!
 |