HERBERS Excel-Forum - die Beispiele

Thema: Zellinhalt als Internet-Suchbegriff

Home

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?

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

Text aus Zelle in Internet Seite Dateiname externer Datei ändern
internet explorer per handle in Objekt umwandeln Tabellenblatt aus externer Exceldatei kopieren
InternetExplorer Object ConboBox mit externe Daten füllen
Einfügen aus Internet-Seite Absturz Excel bei Internet-Absturz
Wert in externer Datei suchen Aufruf externer Programme
Internetdienst mit Makro ausführen Externe Bezüge auslesen mit VBA
Externe Verküpfung anpassen Pivot mit Externer DB am Limit?
Externe Verknüpfungen Blätter in Externer Arbeitsmappe einblenden
externes Verzeichnis ansprechen Download aus dem Internet Teil2
Externe Datenquelle via VBA Einfügen aus Internet 10²
Pivot mit Externer DB UNION funzt nich Nur externe Bezüge rausnehmen
Datei aus dem Internet runterladen XLB Auswirkung auf Internet Explorer
Excel standard Symbolleiste im Internet Explorer *xlt-Dateien als externe Datenquelle nutzen
Externes Programm öffnen internet frage zum RFC
Makro: Bezug auf externes xls-File? Wert an externes Programm übergeben
Externe Excel-Verknüpfungen automatisiert ändern Verlinkung externer Arbeitsmappen
Tabelle in externer Datei löschen externe Bezüge suchen/ersetzen
neue Zeile und externe Bezüge.... Externe Verknüpfung finden
Datei im Internet bearbeiten externe Bezüge
Summenprodukt + Externe Bezüge Datenbank in externer Datei
Fehler beim Kopieren von externer Tabelle anzahl Blätter externer Excel-Datei
Externe Daten aus Access Externe Daten importieren aus Access
Zellwert als Parameter f. externes Script/Programm Worksheetzugriff auf externe Datei
Dropdown - externe Daten Externe Bezüge
Internetseite Markieren u. in Tabellenb. kopieren Zeitanzeige auf USF wenn ein externes Progr. läut