fehlender IE - Makro funktioniert nicht
07.10.2021 18:18:50
Jenny
ich würde mich mega freuen, wenn ihr mir helft.
Allerdings möchte ich äußerst ungern die Datei posten, einfach deshalb, weil eine Vorraussetzung dafür dass sie funktioniert zwei URL's sind, welche die Koordinaten meines Hauses beinhalten. Das möchte ich äußerst ungerne veröffentlichen.
Aber vielleicht könnt ihr mir ja auch anderweitig helfen.
Habe nachfolgendes Makro. Welches eigentlich nichts anderes macht, als erst die URL die in Tabelle3!A1 steht öffnet und die Inhalte in die Mappe kopiert, dann 25 Sekunden wartet und dasselbe dann mit der URL in Tabelle3!A2 tut.
Jetzt hab ich nur das Problem, Windows 11 hat keinen Internet Explorer mehr, mein Versuch ihn bei MS runterzuladen und zu installieren ist auch gescheitert.
Kann man das Makro umschreiben, dass es auf einen anderen Browser zugreift? Installiert sind natürlich Edge und dazu noch Firefox.
Danke
Jenny
PS: Ach ja nutze nicht nur das neue Windows 11 sondern auch das neue Excel 2021
Sub Makro1()
'1. Internetseite laden
Sheets("Tabelle1").Select
Columns("I:I").Select
Selection.Replace What:="Tabelle2!", Replacement:="Tabelle3!", LookAt:= _
xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("Tabelle2").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("Tabelle3").Select
Sheets.Add
ActiveSheet.Name = "Tabelle2"
Sheets("Tabelle3").Select
Dim Internet As Object
Set Internet = CreateObject("InternetExplorer.Application")
Internet.Navigate [a1]
Do While Not Internet.ReadyState = 4
DoEvents
Loop
Internet.Visible = True
Internet.execwb 17, 0
Internet.execwb 12, 0
Internet.execwb 18, 0
Do While Not Internet.ReadyState = 4
DoEvents
Loop
Internet.Quit
Set Internet = Nothing
Sheets("Tabelle2").Select
Range("a1").Select
Sheets("Tabelle2").Paste
Application.OnTime Now + TimeValue("00:00:25"), "Makro2"
End Sub
Sub Makro2()
'2. Internetseite laden
Sheets("Tabelle2").Select
Range("a6000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(3, 0).Select
Sheets("Tabelle3").Select
Dim Internet As Object
Set Internet = CreateObject("InternetExplorer.Application")
On Error GoTo 0
Internet.Navigate [a2]
Do While Not Internet.ReadyState = 4
DoEvents
Loop
Internet.Visible = True
Internet.execwb 17, 0
Internet.execwb 12, 0
Internet.execwb 18, 0
Do While Not Internet.ReadyState = 4
DoEvents
Loop
Internet.Quit
Set Internet = Nothing
Sheets("Tabelle2").Select
Sheets("Tabelle2").Paste
Sheets("Tabelle1").Select
Columns("I:I").Select
Selection.Replace What:="Tabelle3!", Replacement:="Tabelle2!", LookAt:= _
xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("a1").Select
End Sub