Abänderung eines Makros
12.05.2020 10:43:36
Christian
ich wollte mal fragen, ob ihr mir helfen könnt, unten stehendes Makro abzuändern.
Und zwar bislang reagiert es auf eine Eingabe in Spalte B.
Habe jetzt aber bereits eine Liste in Spalte B vorliegen und würde mich freuen, wenn das Makro statt auf eine Eingabe zu warten diese Liste (B1:B1059) Eintrag für Eintrag einen nach dem anderen abarbeitet.
Würdet ihr mir da bitte behilflich sein, das Makro abzuändern?
Gruß
Christian
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objIE As Object
On Error GoTo ErrorHandler
Application.EnableEvents = False
With Target(1, 1)
If .Column = 2 And .Row > 1 Then
If .Value = "" Then
.Resize(, 3).ClearContents
Else
.Offset(0, 1) = "...wait"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "https://www.imdb.com/name/" & .Text & "/"
Do While objIE.Busy Or objIE.readystate 4
DoEvents
Loop
On Error Resume Next
.Offset(0, 1) = objIE.Document.getElementsByTagName("time")(0).innerText
Err.Clear
On Error GoTo ErrorHandler
If .Offset(0, 1) = "...wait" Then .Offset(0, 1) = "no data"
End If
End If
End With
ErrorHandler:
Application.EnableEvents = True
Set objIE = Nothing
End Sub
Anzeige