Gruppe
Extern
Problem
Die in den Internetdateien aus Spalte A festgelegten Redirect-Adressen sollen in Spalte B eingetragen werden.
ClassModule: DieseArbeitsmappe
Sub MessageAbrufen()
Dim IE As Object
Dim iRow As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate Cells(iRow, 1).Value
Application.Wait Now + TimeSerial(0, 0, 2)
SendKeys "{tab}^c%{F4}"
Application.Wait Now + TimeSerial(0, 0, 2)
Cells(iRow, 2).Select
ActiveSheet.Paste
Set IE = Nothing
iRow = iRow + 1
Loop
End Sub