Kurse in Excel einspielen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris,
das folgende Makro sollte auch unter Excel 2003 laufen denke ich. Ich kann es aber nicht ausprobieren. So wie es jetzt ist, werden alle Werte der verlinkten Seite ab Zeile 2 und Spalte 1 in die Tabelle geschrieben, aus der das Makro aufgerufen wird. Du brauchst nur 3 Datensätze, wenn ich es richtig verstanden habe. Welche sind das denn?
Der Link in Deiner hochgeladenen Datei liefert übrigens keine gültige Seite mehr, sondern ein Fehlerseite. Ich gehe davon aus, die in Deinem Ausgangsposting verlinkte Seite ist die richtige.


Sub WienerBoerse()
Const url As String = "https://www.wienerborse.at/marktdaten/aktien-sonstige/prime-market/"
Dim doc As Object
Dim nodeAllDataSet As Object
Dim nodeOneDataSet As Object
Dim nodeSingleCell As Object
Dim currentRow As Long
Dim currentCol As Long
currentRow = 2 'Startzeile zum Eintragen der Daten
currentCol = 1 'Startspalte zum Eintragen der Daten
Set doc = CreateObject("htmlfile")
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", url, False
.send
doc.body.innerHTML = .responseText
Set nodeAllDataSet = doc.getElementByID("c1087-module-container"). _
getElementsByTagName("tbody")(0). _
getElementsByTagName("tr")
For Each nodeOneDataSet In nodeAllDataSet
For Each nodeSingleCell In nodeOneDataSet.getElementsByTagName("td")
Cells(currentRow, currentCol) = Trim(nodeSingleCell.innertext)
currentCol = currentCol + 1
Next nodeSingleCell
currentCol = 1
currentRow = currentRow + 1
Next nodeOneDataSet
End With
End Sub

Viele Grüße,
Zwenn

Hallo Chris,
klar geht das. Da ich nicht weiß, was Du wirklich brauchst, habe ich die quick and dirty Methode gewählt. Es wird einfach geprüft, ob ein ausgelesener Wert numerisch ist. Wenn ja, wird er einfach mit 1 multipliziert.
Um die Daten in eine andere Tabelle zu schreiben, als in die, in der sich der Button befindet, muss nur der Bezug zur gewünschten Tabelle mit ins Makro geschrieben werden. Ich habe das jetzt hart kodiert. Kann man aber auch variabel machen, indem man den Tabellennamen in eine bestimmte Zelle in die Steuertabelle schreibt.
Die Formatierungen für die Zahlen habe ich jetzt einfach in der Tabelle "Börsenkurse" vorgenommen. Also 4 Stellen nach dem Komma oder keine Nachkommastellen und für beide die 1.000er Punkte für die bessere Lesbarkeit. Die Kopfzeile habe ich auch eingetragen. (Farbgebung dürfte schräg aussehen, weil du Excel 2003 hast und die "modernen" Farben da nicht so funktionieren.)
Man kann sich auch viel Arbeit machen und z.B. die doppelten Werte in den Zellen wie Name/ISIN, auf zwei Spalten aufteilen. Bei der Gelegenheit könnte man auch die Farbgebung der Spalte Diff. %/Diff. abs. übernehmen. Man kann die bestehenden Werte in der Zieltabelle auch vor dem Einlesen löschen oder man hängt die neuen Zeilen unten an.
Hier die angepasste Datei:
https://www.herber.de/bbs/user/141859.xls
Viele Grüße,
Zwenn

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread