AW: Zellwert in eine Website kopieren und Ergebnis einfügen
05.10.2023 23:03:51
Alwin Weisangler
Hallo,
man kann das, was ich mit PLZ in der Prozedur angedeutet habe, als Variable verwenden oder eine Zelladresse zuweisen oder oder ....
Beispiel PLZ als Constante:
Option Explicit
Private Const PLZ$ = "01067"
Sub TestOpenUrl()
Dim sURL$, i&
sURL = "https://www.dlubal.com/de/loesungen/online-dienste/schnee-wind-erdbeben-lastzonen"
Shell ("C:Program Files (x86)MicrosoftEdgeApplicationmsedge.exe " & sURL)
Application.Wait Now + TimeSerial(0, 0, 6) 'ggf. Zeit erhöhen bis Seite geladen ist
For i = 1 To 31
Application.SendKeys "{Tab}" ' derzeit 34 Tabs erforderlich - dies kann sich auch mal ändern.
Next i
'Application.Wait Now + TimeSerial(0, 0, 1)
Application.SendKeys PLZ
Application.Wait Now + TimeSerial(0, 0, 1)
Application.SendKeys "{enter}" ' funktioniert leider nicht, da es nur mit Mausklick erreichbar
End Sub
Beispiel statt PLZ und Link via Zelladresse:
Option Explicit
Sub TestOpenUrl()
Dim sURL$, i&
sURL = Tabelle1.Cells(2, 2).Text ' URL in Zelle B2
Shell ("C:Program Files (x86)MicrosoftEdgeApplicationmsedge.exe " & sURL)
Application.Wait Now + TimeSerial(0, 0, 6) 'ggf. Zeit erhöhen bis Seite geladen ist
For i = 1 To 31
Application.SendKeys "{Tab}" ' derzeit 34 Tabs erforderlich - dies kann sich auch mal ändern.
Next i
'Application.Wait Now + TimeSerial(0, 0, 1)
Application.SendKeys Tabelle1.Cells(1, 2).Text ' PLZ in Zelle B1
Application.Wait Now + TimeSerial(0, 0, 1)
Application.SendKeys "{enter}" ' funktioniert leider nicht, da es nur mit Mausklick erreichbar
End Sub
Gruß Uwe