Wert abfragen aus html Datei

Ich habe mich im web wundgesucht, aber bisher leider keine passende Antwort gefunden. Für Hilfe oder Hinweise wäre ich sehr dankbar!
Ich würde gerne mit Excel (Office 2011 für Mac!!!!!) auf einer Internetseite einen bestimmten Wert abfragen und diesen in Excel einfügen. Die Internetseite soll in diesem Falle z.B. das Handelsblatt und der gesuchte Wert der aktuelle Börsenkus sein.
Seite: http://finanzen.handelsblatt.com/kurse_einzelkurs_charts.htn?i=96985
In der html Datei befindet sich die Info, die ich benötige in Zeile
89 der html Datei.
Wie kann ich nun ein Makro erstellen, das mir diese (und auch andere Seiten) aufruft, den von mir gewünschten Wert abfragt und diesen in eine bestimmte bzw. aktuelle Zelle in die Excel Datei einfügt?
Vielen Dank im Voraus!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub b() Dim IEApp As Object, all As Object Set IEApp = CreateObject("InternetExplorer.Application") IEApp.Visible = True IEApp.Navigate "http://finanzen.handelsblatt.com/kurse_einzelkurs_charts.htn?i=96985" Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.Document.readystate = "complete" For Each all In IEApp.Document.all If all.classname = "kurs" Then MsgBox all.innertext Next Set IEApp = Nothing End Sub

Lieber Anton,
diesen Windows code mit InternetExplorer habe ich in anderen einträgen schon gesehen, aber leider kann ich auf mac damit nicht viel anfangen.
Zugegeben: ich verstehe die programmierung nur rudimentär, aber der untere Teil mit der kursabrage, wenn ich es recht verstehe, könnte mir wahrscheinlich helfen.
Was ich online für mac gefunden habe ist dies hier. Damit kann ich immerhin die handelsblatt seite komplett öffnen und sie wird dann auch komplett in excel reinkopiert.
Wäre es irgendwie möglich deinen und diesen code irgendwie so zu verknüpfen, dass dabei das heraus kommt, wonach ich suche?

Sub Import()
Application.ScreenUpdating = False
Application.VBE.MainWindow.Visible = False
On Error GoTo ERRORHANDLER
Workbooks.Open "http://finanzen.handelsblatt.com/kurse_einzelkurs_charts.htn?i=96985"
With ThisWorkbook
End With
ERRORHANDLER:
Application.ScreenUpdating = True
End Sub

[bei diesem code habe ich einen kleinen Teil erntfernt, weil ich dran rumprobiert habe, also nicht wundern falls er irgendwie unvollst. ist.]
Schonmal besten dank und viele grüße!
David

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread