WEB Zugriff mit Execel - 500 Beiträge pro Seite

[Prinz_von_Burnei]

Ich versuche nun schon einige Zeit einen WEB-Zugriff über Excel-VB hin zu bekommen. Aber ich der Help-Datei ist so extrem viel dazu geschriben, dass ich einfach nichts mehr sehr, was auch einfach geht.

Hintergrund:

- ich will mit einem Excel Macro die historischen - und die Tageskurse von bestimmten AMI-Aktien auslesen. u.a. Yahoo.

Wäre toll, wenn mir hier einer weiterhelfen könnte.

vielen dank
Prinz

[LostHorizons]

Überprüfe auch die Adresse und alle Objekte und ändere das Makro so das es bei Dir funktioniert.
Die Smilies musst Du als Zeichen lesen. bekomme ich nicht weg.(Doppelpunkt und Klammer)




Sub WechselKurse()
Dim rngTarget As Range, rngFind As Range
Application.ScreenUpdating = False
Set rngTarget = ThisWorkbook.Worksheets("Tabelle1").Range("B5:B10")
Workbooks.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://finanzen.de.yahoo.com/m3", Destination:=Range("A1"))
.Name = "m3"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
Set rngFind = ActiveSheet.Columns(1).Find("Letzter Kurs", lookat:=xlPart, _
LookIn:=xlValues)
rngTarget.Value = Range(rngFind.Offset(2, 1), rngFind.Offset(7, 1)).Value
ThisWorkbook.Worksheets("Tabelle1").Range("B4") = Time
ActiveWorkbook.Close savechanges:=False
End Sub

Grüsse LostHorizons

[Prinz_von_Burnei]

Hallo,

hmmm, ich bekomme das VB Ding einfach nicht zum Laufen.
kannst du mir diese Datei vielleicht auf

[e-mail]

schicken?

Vielen Dank
edu

[LostHorizons]

Hast Du meine Mail bekommen?

[Prinz_von_Burnei]

Hallo,

du, da ist nichts angekommen:
[e-mail]?

kannst du es noch einmal versuchen?

dir noch ein schönes WE
edu

[LostHorizons]

Neuer Versuch.
Habe mich vertippt.

Gruss
LostHorizons

[kerke]

Hallo zusammen,

ich habe begeistert mitgelesen und ausprobiert - in Excel XP klappt es einwand frei. Dagegen hagelt es unter Excel 97 Fehlerhinweise w/ einzelner Parameter beim Webzugriff. Disable ich die Parameter (z.B. ".preserveFormatting..", ".Web..."`), funktioniert der ganze Webzugriff natuerlich nicht mehr. Ist irgendjemand bekannt, ob Excel 97 ueberhaupt schon in der Lage ist, so auf das Web zuzugreifen, und hat jemand eine Loesung (da ich hier in der Arbeit auf Excel 97 beschraenkt bin ).

Vielen Dank im Voraus - und herzlichen Dank von meiner Seite an LostHorizons fuer die tolle Routine !

[Mathefreak]

Moin,

ich hatte mal vor längerer Zeit ein umfangreiches Excel-Tool zur Optionsscheinverwaltung incl. Realtime-Kursabfrage gebastelt. Das ist aber mittlerweile umgestellt auf ein eigenständiges Programm (OS-Scanner, siehe Thread: Euwax-Scanner - FAQ).

Ich habe aber hier noch ein recht einfaches Blatt gebastelt (Excel 97), mit dem man die Kurse eines Wertpapieres nach Vorgabe von WKN und Börsenplatz abfragen kann (über Yahoo).

Wer Interesse hat, einfach fragen

Gruß M.

[Prinz_von_Burnei]

Also das würde mich sehr interessieren.

Ich arbeite inzwischen fast nur noch mit WealthLab und Prophet-Investor, aber was ich immer noch suche, ist eine Excel Abfrage, wo ich halbautomatisch bestimmte (Anlistung aus einer Datei, die ich mit verschiedenen A-Kürzeln gefüllt habe) Aktien abrufen kann.

Besonders wichtig ist es mir dabei, auch die akt. Kurse (wenn auch zeitversetzt) sehen zu können.


Danke
Prinz

[Mathefreak]

@Prinz:

schick mir deine Mailadresse, dann schick ich das Blatt. Musst du natürlich noch an deine Bedürfnisse anpassen. Sollte aber kein Problem sein, wenn du dich mit Excel/VBA auskennst. Wenn nicht, können wir natürlich gerne über eine individuelle Anpassung reden

Gruß M.

[.Wurm.]

@LostHorizons

Könntest Du mir das Excelprogramm per mail zukommen lassen?

Hab mail per BM druchgejagt.



Falls jemand anders es auch machen kann, dann bitte ein BM.

Vielen Dank im voraus.

[Prinz_von_Burnei]

Hallo,

so endlich habe ich es mit eurer Hilfe jetzt geschafft, dass ich mir die Daten aus dem Web abrufen kann.

## anfrage: Bollinger Bands

wer hat schon im Excel die Bollinger Bands berechnet.

Begonnen habe ich ja auch schon, aber die Ergebnisse decken sich einfach nicht mit den, wenn ich im Internet ein Chartprogramm aufrufe.

Danke!

Prinz