title image


Smiley Re: Aktienkurse aus Internet laden??
Versuchs mal hiermit, Aktienkursabfrage bei YahooSub Abruf()Dim i%Dim wName$, WKN$ Application.ScreenUpdating = False WKN = InputBox("WKN-Nr.:", "Web-Abfrage", 840400) If WKN = "" Then Exit Sub wName = "http://finanzen.yahoo.de/quotes/de/quote?symbols=" & WKN & "&detailed=f" Worksheets.Add after:=Worksheets(Worksheets.Count) WebAufruf wName, ActiveSheet Worksheets("Daten").Range("A2:G2").Value = Range("A14:G14").Value Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True Worksheets("Daten").Select Range("A1").Select Columns("A:G").AutoFitEnd SubFunction WebAufruf(wName$, TB As Worksheet) With ActiveSheet.QueryTables.Add(Connection:= _ "URL;" & wName, _ Destination:=Range("A1")) .FieldNames = False .RefreshStyle = xlInsertDeleteCells .RowNumbers = False .FillAdjacentFormulas = False .RefreshOnFileOpen = False .HasAutoFormat = True .BackgroundQuery = True .TablesOnlyFromHTML = True .Refresh BackgroundQuery:=False .SavePassword = False .SaveData = True End WithEnd FunctionGruß Mario

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: