Gruppe
Extern
Problem
Wie kann ich in XL8 über einen Internet-Hyperlink eine Suchmaschine aufrufen und einen in der aktiven Zelle stehenden begriff suchen lassen?
ClassModule: Tabelle1
Private Sub CommandButton1_Click()
Call WebSuche
End Sub
StandardModule: basMain
Sub WebSuche()
Dim sSearch As String, sWorth As String
Application.ScreenUpdating = False
sSearch = "http://www.google.de/search?q="
sSearch = sSearch & Range("A1").Value
sSearch = sSearch & "&ie=UTF-8&oe=UTF-8&hl=de&btnG=Google-"
sSearch = sSearch & "Suche&meta=lr%3Dlang_de"
With Range("A1")
sWorth = .Value
.Value = sSearch
.Hyperlinks.Add Range("A1"), sSearch
.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
.Hyperlinks(1).Delete
.ClearContents
.Value = sWorth
End With
End Sub