Thema Datum  Von Nutzer Rating
Antwort
27.05.2019 11:04:20 Sven
Solved
Blau LocationURL - Wert in Zelle schreiben
 27.05.2019 11:44:49 Zwenn
NotSolved
27.05.2019 12:46:22 Gast47194
Solved

Ansicht des Beitrags:
Von:
Zwenn		 Datum:
27.05.2019 11:44:49		 Views:
483		 Rating:
     
Antwort:
  Ja
Thema:
LocationURL - Wert in Zelle schreiben

Hallo Namensvetter,

mir erschließt sich der Sinn der Aktion zwar nicht, denn Du übergibst die URL ja selbst an den IE, aber es funktioniert so. LocationURL ist eine Eigenschaft des Browser Objektes. Also musst Du Deine Browserinstanz davor schreiben. Das ganze Wait und Caption Geraffel wird nicht benötigt.

Sub LocationInZelle()

Dim browser As Object
Dim url As String

  url = "http://www.vba-forum.de"
  
  'Internet Explorer initialisieren, Sichtbarkeit festlegen,
  'URL aufrufen und warten bis Seite vollständig geladen wurde
  Set browser = CreateObject("internetexplorer.application")
  browser.Visible = False
  browser.Navigate url
  Do Until browser.ReadyState = 4: DoEvents: Loop
  
  Cells(1, 1).Value = browser.locationURL
  
  'Aufräumen
  browser.Quit
  Set browser = Nothing
End Sub

Viele Grüße,

Zwenn

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.05.2019 11:04:20 Sven
Solved
Blau LocationURL - Wert in Zelle schreiben
 27.05.2019 11:44:49 Zwenn
NotSolved
27.05.2019 12:46:22 Gast47194
Solved