Hallo Zusammen,
benötige eure Hilfe. Ich habe das Internet schon kpl. durchgestöbert und leider keine Lösung gefunden, daher wende ich mich nun an euch.
Ich benötige einen VBA-Code, der mir alle Hyperlinks die in Spalte D1:d150 stehen abfragt und das Ergebnis ab Spalte E1 einfügt. Die Ergebnisse sollen allerdings untereinander geschrieben werden und nicht nebeneinander.
Aktuell habe ich nur einen VBA-Code, der eine Abfrage startet. Und wenn ich den selben Code immer und immer wieder untereinander schreibe und nur die Zellbezüge ändere, dann bekomme ich die Fehlermeldung, dass ich nicht genügend Ressourcen besitze:
Aktueller VBA-Code:
'With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & Worksheets("Tabelle1").Range("$d$1").Value, _
Destination:=Range("$e$1"))
.Name = "abfrage.html"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
On Error Resume Next
.Refresh BackgroundQuery:=False
end with
end sub`
Kann mir da einer von euch helfen?