Makro von Thorsten soll Ausgaben in Spalten aufteilen
20.12.2023 17:29:58
Christian
und natürlich auch Hallo an alle anderen Helfer, die meinen Beitrag lesen.
Du hast mir vor ein paar Wochen mit folgendem Makro ausgholfen, welches alle Hyperlinks und noch ein paar weitere Informationen dazu von verschiedenen Internetseiten, die in Spalte A stehen auflistet
Public Sub test()
Dim objIE As Object
Dim objLinks As Object
Dim objLink As Object
Dim lngCount As Long
Dim lloRow As Long, lshTab2 As Worksheet
Set lshTab2 = Sheets("Tabelle2")
For lloRow = 1 To lshTab2.Cells(lshTab2.Rows.Count, 1).End(xlUp).Row
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.navigate lshTab2.Range("A" & lloRow).Text
Do While .busy
Do While .busy
DoEvents
Loop
Loop
.Visible = False
Set objLinks = .Document.Links
For Each objLink In objLinks
lngCount = lngCount + 1
lshTab2.Cells(lngCount, 2) = objLink.href
lshTab2.Cells(lngCount, 3) = "'" & objLink.outertext
Next
.Quit
End With
Next
Set objIE = Nothing
Set lshTab2 = Nothing
End SubIch hätte vielleicht noch eine kleine Bitte, ist es möglich dass das Makro anstatt alles in die Spalten B und C zu schreiben, für jede Adresse in Spalte A eigene Spalten macht?
Also erster Link in Spalten B und C, zweiter in D und E, dritter in F und G usw.
Hier nochmal der Link zu dem alten Thread
https://www.herber.de/forum/archiv/1956to1960/1957014_Links_aus_Internetseite_auslesen.html
Dankeschön
Christian