Webabfragemarko in Schleife ausführen
Nimzo
ich habe folgendes Makro mit dem Makrorecorder aufgezeichnet und die URL mit googles Hifle auf eine Zelle angepasst.
Nun möchte ich aber dass das Makro in einer Schleife läuft, und zwar so lange, wie in Spalte F Links eingetragen sind.
Also, Makro nimmt URL aus F1 und füllte damit die Felder Zeilen 1-11, danach URL auf F2 und füllt Zeilen 12 - 22 usw.
Geht sowas? und wenn ja, wie?
Vielen Dank schon jetzt und viele Grüsse
Aaron
Sub Makro3()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & Worksheets("Tabelle1").Range("F1").Value, _
Destination:=Range("$K$1"))
.Name = "ergebnisse"
.FieldNames = True
.RowNumbers = True
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = "4"
.WebPreFormattedTextToColumns = False
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = True
.WebDisableDateRecognition = True
.WebDisableRedirections = True
.Refresh BackgroundQuery:=True
End With
End Sub
Anzeige