Microsoft Excel

Herbers Excel/VBA-Archiv

Aktienkurse per Zelle ausgeben VBA

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!

 

Beiträge aus den Excel-Beispielen zum Thema "Aktienkurse per Zelle ausgeben VBA"