Währungskurse online

Na ja, wenns kostenlos sein soll, könnte man das vielleicht so machen:

Sub Makro1()
'
    Sheets("Tabelle1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://web02.evig.de/partner/ftd/index.php", Destination:=Range("A1"))
        .Name = "index"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Rows("56:136").Select
    Selection.Copy
    Sheets("Tabelle2").Select
    ActiveSheet.Paste
End Sub

Das ist natürlich nur ein Grobvorschlag, den man anpassen müsste.
Gruß
Dieter

Vielen Dank für die Mühe!

Ich hätte gleich konkreter werden müssen, denn ein Makro bringt mir nicht viel Ich muss mit PHP darauf zugreifen können.

Naja, wenn's keine allgemein zugängliche Schnittstelle gibt, muss ich mir vielleicht eine Börsenseite suchen und den HTML-Code zerhacken. Ist eben immer abhängig vom Design: wenn die das Layout wechseln, muss das Skript (wahrscheinlich) angepasst werden.

Trotzdem vielen Dank!

greez
JoSsiF

Hallo,
hab mal auf meiner KursSeite "Comdirekt" dies versucht doch leider funktioniert dies nicht -> bekomm die Fehlermeldung "Java Script aktivieren". Hab Java aktiviert funktioniert leider immer noch nicht. Wäre toll wenn mir jemand einen Tipp übermitteln könnte.
Code den ich verwende (Dieters code mit Änderung der URL):

    Sheets("Sheet1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.comdirect.de/", Destination:=Range("A1"))
        .Name = "index"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

Danke für Eure Feedbackl LG pema1967

Java != JavaScript

danke JoSsif hast mich auf die richtige Spur gebracht. LG pema1967

Hallo pema1967,
wenn du die URL änderst auf
"URL;http://isht.comdirect.de/html/cur/main.html"
solltest du auch schon eine brauchbare Ausgangs-Information haben (mit dem sonstigen Code).
Gruß
Dieter

Super perfekt -> vielen Dank Dieter -> funktioniert. LG pema1967