VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zellinhalt als Internet-Suchbegriff

Gruppe

Extern

Bereich

Internet

Thema

Zellinhalt als Internet-Suchbegriff

Problem

Wie kann ich in XL8 über einen Internet-Hyperlink eine Suchmaschine aufrufen und einen in der aktiven Zelle stehenden begriff suchen lassen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




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

    


Beiträge aus dem Excel-Forum zu den Themen Extern und Internet