Webabfrage ändert Zellnamen!? ...
20.02.2007 21:49:00
proxima05
ich habe ein ganz merkwürdiges Problem. In einer Arbeitsmappe gibt es ein Tabellenblatt (Tabelle1), in dem die Zelle I25 den Namen "LengthC1" trägt.
Neben diesem Blatt gibt es noch ein weiteres Blatt (Tabelle2) in dem eine Webabfrage aktuelle Devisenkurse lädt. Die URL dazu steht dort in C1. Wenn ich jetzt den Download starte, dann wir in Tabelle1 der Name "LengthC1" gelöscht, was negative Auswirkungen auf Formeln an anderer Stelle hat. Woran liegt das denn?
Das ist der Code für den Download
===================================================
'Dieses Makro lädt die aktuellen Wechselkurse herunter
Sub DownloadFX()
Dim QuerySheet As Worksheet
Dim DataSheet As Worksheet
Dim qurl As String, start As String
Dim i As Integer, k As Integer
Dim nQuery As Name
' Application.ScreenUpdating = False
' Application.DisplayAlerts = False
' Application.Calculation = xlCalculationManual
Set DataSheet = ActiveSheet
Range("C6").CurrentRegion.ClearContents
qurl = <a href=""http://quote.yahoo.com/d/quotes.csv?s="">"http://quote.yahoo.com/d/quotes.csv?s="</a>
start = Cells(6, 1)
i = 7
qurl = qurl + start + Cells(i, 1) + "=X"
i = i + 1
While Cells(i, 1) <> ""
qurl = qurl + "+" + start + Cells(i, 1) + "=X"
i = i + 1
Wend
qurl = qurl + "&f=l1nd1t1"
Range("c1") = qurl
QueryQuote:
With ActiveSheet.QueryTables.Add(Connection:="URL;" & qurl, Destination:=DataSheet.Range("C7"))
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With
Range("C7").CurrentRegion.TextToColumns Destination:=Range("C7"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, other:=False, _
DecimalSeparator:=".", ThousandsSeparator:=","
Columns("C:G").ColumnWidth = 10
With ThisWorksheet
For Each nQuery In Names
If IsNumeric(Right(nQuery.Name, 1)) Then
nQuery.Delete
End If
Next nQuery
End With
Range("A1").Select
End Sub
===================================================
Danke für einen Tipp.
Gruß
Ralph