Hallo und guten Tag,
bin neu im Forum und im VBA und hoffe hier auf Hilfe. Habe mir unter XP Pro Excel 2003 ein Makro gebastelt, welches mit Hilfe einer Webabfrage bestimmte Kennziffern abholt. Die URL#s kommen aus einer Spalte der Tabelle, die Kennziffern werden in eine andere Spalte geschrieben. Funktioniert soweit auch ganz gut. Problem: Bei steigender Zeilenanzahl (anzufragender URLs) geht die Performance den Bach runter. Nach einigen Lernprozessen und Google-Nächten behaupte ich, die Antwort liegt in der Tatsache begründet, dass jedesmal ein neues Querytable (.add) produziert wird. Wie verhindere ich nun, das genau eben das passiert und mein Makro eben nur die URL mit dem bestehenden abfragt. HIIIILLLFE!. Vielen Dank im Voraus.
Gruß Andreas
Ach ja, der Code:
dim a as string
dim ze as integer
On Error Resume Next
For ze = 1 To 1000
a = Range("Tabelle1!d" & ze)
Sheets("Tabelle2").Select
'
With ActiveSheet.QueryTables.Add(Connection:="URL;" & a, Destination:=Range("c1"))
.Name = "verein"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Application.CutCopyMode = False
Range("C2").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("e" & ze).Select
ActiveSheet.Paste
Worksheets("Tabelle2").Cells.ClearContents
Next ze
End Sub