Aktienkursabfrage von H.-W. Herber
13.04.2006 08:52:16
H.-W.
ich hab da das folgende Makro von Herber gerade im Einsatz,
leider zeigt es mir nur den aktuellen Stand an.
Ich hätte gerne, das wenn ich den Kurs abfrage, dass dann die aktuellen
Werte immer eine Zeile tiefer stehen.
So hätte ich einen besseren Überblick, als Newbie.
mfg
Gerhard S.
Sub Abruf()
Dim wks As Worksheet
Dim var As Variant
Dim sWkn As String, sQuery As String
Application.ScreenUpdating = False
Set wks = ActiveSheet
sWkn = InputBox( _
prompt:="WKN-Nr.:", _
Title:="Web-Abfrage", _
Default:="WCH888")
If sWkn = "" Then Exit Sub
sQuery = <a href=""http://de.finance.yahoo.com/q?m=*&s="">"http://de.finance.yahoo.com/q?m=*&s="</a> & sWkn & "&d=v1"
Worksheets.Add after:=Worksheets(Worksheets.Count)
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & sQuery, _
Destination:=Range("A1"))
.Refresh BackgroundQuery:=False
End With
var = Application.Match(sWkn & "*", Columns(1), 0)
wks.Range("A2").Value = Cells(var, 2).Value
wks.Range("B2").Value = Cells(var, 1).Value
wks.Range("C2").Value = Cells(var, 3).Value
wks.Range("D2").Value = Cells(var, 5).Value
wks.Range("E2").Value = Cells(var, 6).Value
wks.Range("F2").Value = Cells(var, 7).Value
wks.Range("G2").Value = Cells(var, 8).Value
wks.Range("H2").Value = Now
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Worksheets("Daten").Select
Range("A1").Select
Columns("A:G").AutoFit
Application.ScreenUpdating = True
End Sub