Herbers Excel-Forum - das Archiv

Mehrere Aktienkurse abfragen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Mehrere Aktienkurse abfragen
von: GEGE
Geschrieben am: 31.10.2003 12:59:25
Die publizierte Aktienabfrage funktioniert, wenn nur jeweils ein Wert abgefragt werden soll. Wie kann ich gleichzeitig z.b. 5 verschiedene Werte abfragen?

Bild

Betrifft: Auf welche publizierte Aktienabfrage beziehst
von: Andreas Eckmann
Geschrieben am: 31.10.2003 16:10:24
Du Dich?

Gruß Andreas
Bild

Betrifft: Anbei der Code
von: GeGe
Geschrieben am: 31.10.2003 20:34:17
Hallo Andreas,

der folgende Code bedingt jeweils einen Aktienwert, wie kann ich erreichen, daß gleichzeitig z.B. 5 verschiedene Werte abgefragt werden und diese dann auch in 5 Zeilen untereinander dargestellt werden?



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:="840400")
If sWkn = "" Then Exit Sub
sQuery = "http://de.finance.yahoo.com/q?m=*&s=" & 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



Bin für jeden Tipp dankbar.

Gruß GeGe
Bild

Betrifft: Lösung
von: Andreas Eckmann
Geschrieben am: 03.11.2003 14:42:25
Hallo GeGe,

anbei mein Vorschlag. Die


Sub geht davon aus, dass Du in den Zellen A2, A3, A4 ... die gewünschte WKN einträgst. Alle WKN werden nacheinander abgefragt.
Die Ausgabe wurde um eine Spalte versetzt.



Sub Abruf()
Dim zeile As Integer
Dim wks As Worksheet
Dim var As Variant
Dim sWkn As String, sQuery As String
zeile = 2
sWkn = "1"
Do Until sWkn = ""
Worksheets("Daten").Select
sWkn = Cells(zeile, 1).Value
If sWkn = "" Then
Exit Do
End If
Application.ScreenUpdating = False
Set wks = ActiveSheet
sQuery = "http://de.finance.yahoo.com/q?m=*&s=" & 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.Cells(zeile, 2).Value = Cells(var, 2).Value
wks.Cells(zeile, 3).Value = Cells(var, 1).Value
wks.Cells(zeile, 3).Value = Cells(var, 3).Value
wks.Cells(zeile, 4).Value = Cells(var, 5).Value
wks.Cells(zeile, 5).Value = Cells(var, 6).Value
wks.Cells(zeile, 6).Value = Cells(var, 7).Value
wks.Cells(zeile, 7).Value = Cells(var, 8).Value
wks.Cells(zeile, 8).Value = Now
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Worksheets("Daten").Select
Range("A1").Select
Columns("A:I").AutoFit
Application.ScreenUpdating = True
zeile = zeile + 1
Loop
End Sub




MfG
Andreas Eckmann
 Bild
Excel-Beispiele zum Thema " Mehrere Aktienkurse abfragen"
Suche über mehrere Tabellen Mehrere Schaltflächen für ein Makro
Suchbegriff über mehrere Tabellenblätter suchen. Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche
Druck aus mehreren Tabellenblättern auf eine Druckseite AutoFilter über mehrere Arbeitsblätter setzen
Daten von mehreren Blättern auf ein Druckblatt Prozentuale Erhöhung über mehrere Arbeitsblätter hinweg
Werte in mehreren Spalten sortieren Textreihe auf mehrere Spalten mit fester Seitenlänge verteilen