weis jemand, wie man Suchwörter aus einer Textbox, bei Befehl in Google suchen lässt?
Vielen Dank, Erik
Sub google()
Dim sPath As String
sPath = "https://www.google.de/search?sourceid=navclient&hl=de&ie=UTF-8&rls=GGLD,GGLD:2005-15,GGLD:de&q="
Name = "ich suche was"
'Name = textbox1.Value
sPath = sPath & Name
ActiveWorkbook.FollowHyperlink _
Address:=sPath, _
NewWindow:=True
End Sub
Gruss
Klaus K.
Sub google()
Dim sPath As String, sSuchtext As String
sPath = "https://www.google.de/search?sourceid=navclient&hl=de&ie=UTF-8&rls=GGLD,GGLD:2005-15,GGLD:de&q="
sSuchtext = DeinUFname.DeinTextboxName.Value
sPath = sPath & sSuchtext
ActiveWorkbook.FollowHyperlink _
Address:=sPath, _
NewWindow:=True
End Sub
DeinUFname und DeinTextboxName musst du natürlich anpassen, da du uns selbige nicht verraten hast.
Hilft das?
Ciao
Thorsten
Dim sPath, sSuchtext As String
Diese Deklaration tut's genauso, ist aber 10 Byte kleiner!
Soo. Das musste ich mal loswerden ;-)))
Gruss
Klaus K.
Sub google()
Dim sPath As String
sPath = "https://www.google.de/search?sourceid=navclient&hl=de&ie=UTF-8&rls=GGLD,GGLD:2005-15,GGLD:de&q="
sPath = sPath & DeinUFname.DeinTextboxName.Value
ActiveWorkbook.FollowHyperlink _
Address:=sPath, _
NewWindow:=True
End Sub
Du verstehst? ;-)
Ciao
Thorsten