Fundamentalanalyse
02.02.2015 08:15:42
unzzz1978
ich benötige eure Hilfe. Möchte zur Fundamentalanalyse der Daxwerte jeweils ein Tabellenblatt pro Aktie öffen und die entsprechenden Datem per Import aus dem Internet auswerten.
Das klappt mit folgendem Code sehr gut, jedoch müssen nicht nur die "stock"-Werte, sondern weitere Wert mit übertragen werden, die in Spalte AQ7:AQ36 stehen.
Kann man die Variable i hierfür vielleicht mit verwenden, da es sich in beiden Fällen um genau 30 Werte handelt ?
For i = 1 To 30 Step 1
On Error GoTo Fehler:
stock = Worksheets("DAX").Cells(i + 6, 2).Value
numberws = Worksheets.Count
ActiveWorkbook.Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = stock
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://finanzen.net/bilanz_guv/" & stock, Destination:=Range _
("$A$1"))
Hoffe ich habe mich nicht zu kompliziert ausgedrückt und freue mich auf eure Ideen !)
Gruß
unzzz1978