Textlink deren Namen mit "5" beginnen in Spalte A
31.01.2013 18:56:52
Nibio
eigenltich wollte ich in Spallte A, alle Textlinks die mit ein Zahl zwischen 1 und 9 beginnen auflisten. Aber das wäre für mich zu kompliziert oder besser gesagt, unmöglich. Deshalb habe ich versucht ein Script so anzupassen dass Textlink Nummer 1 in Zelle A1 eingetragen wird (wenn Textlink mit "5" beginnt). Wäre nicht schlecht für den Anfang hatte ich mir gedacht. Aber nicht einmal das klappt bei mir.
Könnte mir jemand BITTE sagen was ich falsch mache?
Sub Getlinknames()
Dim ieApp As InternetExplorer
Dim ieDoc As Object
Dim ieTable As Object
Dim clip As DataObject
Set ieApp = New InternetExplorer
ieApp.Visible = True
ieApp.Navigate "url" ' hier die URL
Do While ieApp.Busy: DoEvents: Loop
Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
Set ieDoc = ieApp.Document
If LCase(Left(ieDoc.Links(1).innertext, 1)) = "5" Then
Range("A1") = ieDoc.Links(1).innertext
End If
End Sub
Danke im Voraus
Nibio
Anzeige