eine Schleife in Webabfrage
29.08.2008 09:30:05
mehmet
ich habe mit dem Macrorecorder Webabfrage aufgezeichnet.
Diese habe ich ergänst mit der URL Adresse und Zellinhalte.
Hier die Aufzeichnung bzw. überarbeitete Version:
Sub TAF1()
derLink = "http://www.dieseite.de/main. _
htm?tp=sa&flag="
Sheets("Tabelle1").Select: Range("E2").Select
Range("E3:G99").Select: Selection.ClearContents: Range("E2").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & derLink1 & _
Range("c4") & "%20" & _
Range("c5") & "%20" & _
Range("c6") & "%20" & _
Range("c7") & "%20" & _
Range("c8") & "%20" & _
Range("c9") & "%20" & _
Range("c10") & "%20" & _
Range("c11") & "%20" & _
Range("c12") & "%20" & _
Range("c13") & "%20" & _
Range("c14") & "%20" & _
Range("c15") & "%20" & _
Range("c16"), _
Destination:=Range("E2"))
.Name = _
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "5"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = True
.Refresh BackgroundQuery:=False
End With
End Sub
Wie man sehen kann, habe ich mir Mühe gegeben 8-)
Könntet Ihr mir bitte weiterhelfen eine Schleife einzubauen.
Die Schleife soll in Zelle C4 anfangen und +1 Zelle nach unten gehen und diese in Adresse einfügen.
Dies soll solange gehen, bis Zelle Cxx Leer ist.
Dank im Voraus
Gruss
mehmet