Internetexplorer mehrmals öffnen
12.06.2006 17:22:37
Wolfgang
den untenstehenden Code konnte ich Dank der aktiven Mitwirkung verschiedener Forumsteilnehmer und durch Recherche umstellen und für mich nutzbar machen. Ich würde nun noch gerne erreichen, dass bei jeder erneuten Abfrage (erfolgt per Doppelklick in Spalte I) immer der Internetexplorer erneut geöffnet wird und nicht in einer bereits geöffneten Website gestartet wird. Ich habe dabei bereits verschiedentlich den Bereich NewWindow:=False auf True umgestellt, das zeigt aber keine Wirkung. Was mache ich da verkehrt? - Auch hierfür schon jetzt allen Forumsteilnehmern herzlichen Dank für die Rückmeldung.
Herzliche Grüße
Wolfgang
(Das http: habe ich hier weggelassen, da ansonsten die Adresse so komisch lang angzeigt wird)
Sub WebSuche()
On Error GoTo Fehler
Dim SuchString$
Application.ScreenUpdating = False
SuchString = ...www.arbeitsagentur.de/vam/vamController/Contentsuche/?"
SuchString = SuchString & "defaultCmd=cmd%23einfacheSuche&rqc=2&ls=false&ut=0&keywordeinfach="
SuchString = SuchString & ActiveCell
ActiveCell = SuchString
With ActiveCell
.Hyperlinks.Add ActiveCell, SuchString
.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
.Hyperlinks(1).Delete
.ClearContents
End With
Exit Sub
Fehler:
MsgBox "Es konnte keine Verbindung hergestellt werden !" & _
vbCrLf & Error, _
vbExclamation, "Fehlermeldung"
End Sub