Werte täglich aus Tabelle auslesen

[Arjen]

Guten Tag,
ich habe mir die "MSN MoneyCentral Stock Quotes" in Excel importiert. Nun würde ich gerne folgendes tun; Ich hätte gern auf einem zweiten Blatt nur die End Tageswerte des DAX, und jeder Tag soll in einem neuen Feld hinterlegt werden. Dies könnte ich natürlich manuell tun, und jeden Abend einfach den Dax Wert aus der Tabelle kopieren, nur wollte ich rein interessehalber Fragen, ob und wie ich dies automatisch von Excel machen lassen kann.

Der Sinn und Zweck sollte in diesem Fall außen vor gelassen werden.

MfG
Arjen

[pl3x]

Hi,

ich empfehle dir YahooFinance.
Allerdings hast dann nicht nur den Schlusskurs, sondern OHLC, ADj. Close + Volume

share_symb wäre ^GDAXI für XETRA
sdm = startmonat
sdd = Starttag
sdy = startjahr
edm = endmonat
edd = Endtag
edy = endjahr
zeit_abs = Zeiteinheit (daily/weekly/monthly), in deinem fall "d"

Code:

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;http://ichart.finance.yahoo.com/table.csv?s=" & share_symb & "&a=" & sdm & "&b=" & sdd & "&c=" & sdy & "&d=" & edm & "&e=" & edd & "&f=" & edy & "&g=" & zeit_abs & "&ignore=.csv" _
        , Destination:=Range("$A$1"))
        .FieldNames = True
        .RowNumbers = True
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(5, 1, 1, 1, 1, 1, 1)
        .TextFileDecimalSeparator = "."
        .TextFileThousandsSeparator = ","
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=True
       
    End With

edit: je nach Broker könntest evtl. auch über ne API abfragen.. IB ist ziemlich nice

[Arjen]

vielen Dank für Ihre Antwort. Ich würde in der Tat gerne Yahoo benutzen, jedoch kann ich mit meiner Excel 2011er Version (Mac) keine Webabfrage starten. Beziehungsweise trotz zahlreicher Versuche ist es mir bisher noch nicht gelungen. Somit muss ich die "gespeicherte Abfragen" auswählen, und dort steht nur MSN zur Auswahl.

Daher weiß ich leider auch nicht, wie ich mit diesem Code umzugehen habe.

Freundliche Grüße
Arjen