kleines suchmachienen tool in VBA
corax
ich möchte via VBA ein kleines suchtool bauen in dem ich 3 variablen habe:
1. der 1. teil der google links (bis zum suchbegriff)
2. der suchbegriff selber
3. der rest des google links
und das ganze soll ich dann im internet explorer (hier is leider nix anderes drauf) öffnen.
wäre sehr dankbar um eine schnelle hilfreiche antwort.
danke im vorraus!
im moment sieht es so aus:
Option Compare Database
Private Sub Befehl2_Click()
Dim strSuche As String
Dim strLink1 As String
Dim strLink2 As String
strSuche = Me.tfsuche.Value
strSuche = Replace(strSuche, " ", "+")
strLink1 = <a href=""https://www.google.de/search?hl=de&ie=ISO-8859-1&oe=ISO-8859-1&q=+"">"https://www.google.de/search?hl=de&ie=ISO-8859-1&oe=ISO-8859-1&q=+"</a>
strLink2 = "&btnG=Suche&meta="
Call Shell("C:\Programme\Internet Explorer\IEXPLORE.EXE")
End Sub
Anzeige