Hallo Leute,

ich habe folgende Webabfrage, welche die nervige Eigenschaft besitzt, bei jedem durchlauf, eine neue Spalte in das Excel-Sheet einzufuegen.

Private Sub CommandButton1_Click()

Dim url As String
Dim i As Integer
Dim j As Integer

i = 5
j = 5
url = "http://download.finance.yahoo.com/d/quotes.xml?s=" + Cells(i, 5) + "&f=" + Cells(4, 7)

Cells(5, 7).Clear
With ActiveSheet.QueryTables.Add(Connection:= _
 "URL;" & url _
, Destination:=Cells(5, 7))
 .Name = "NAme(0)"
 .FieldNames = True
 .RowNumbers = False
 .FillAdjacentFormulas = False
 .PreserveFormatting = True
 .RefreshOnFileOpen = False
 .BackgroundQuery = True
 '.RefreshStyle = xlInsertDeleteCells
 .SavePassword = False
 .SaveData = True
 .AdjustColumnWidth = True
 .RefreshPeriod = 0
 .WebSelectionType = xlSpecifiedTables
 .WebFormatting = xlWebFormattingNone
 .WebTables = "4"
 .WebPreFormattedTextToColumns = True
 .WebConsecutiveDelimitersAsOne = True
 .WebSingleBlockTextImport = False
 .WebDisableDateRecognition = False
 .WebDisableRedirections = False
 .Refresh BackgroundQuery:=False
 End With
 

End Sub

Kann mir bitte jemand helfen dies abzuschaffen?

Danke Ray