Aus textbox in google

Forumthread: Aus textbox in google

14.10.2007 23:20:00

Cordt-Erik

Hallo,
weis jemand, wie man Suchwörter aus einer Textbox, bei Befehl in Google suchen lässt?
Vielen Dank, Erik

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Aus textbox in google

14.10.2007 23:27:00

Klaus
AW: Aus textbox in google

15.10.2007 05:52:50

Oberschlumpf
AW: Aus textbox in google

15.10.2007 09:16:33

Klaus
AW: Aus textbox in google

15.10.2007 10:18:23

Oberschlumpf
ups.....

15.10.2007 12:21:05

Klaus

AW: Aus textbox in google

14.10.2007 23:27:00

Klaus

Ungetestet als Beispiel:


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.

AW: Aus textbox in google

15.10.2007 05:52:50

Oberschlumpf

@Klaus
Name ist ein VBA-Befehl und nicht geeignet als Variablenbezeichnung
Ausserdem wird VBA die Textbox nicht "finden", da VBA den Container der Textbox nicht kennt.
Hi Erik
Versuch es mal so (auch ungetestet, nur von Klaus übernommen, aber korrigiert)


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

AW: Aus textbox in google

15.10.2007 09:16:33

Klaus

@oberschlumpf
Gemeint war ja auch eigentlich der der Textboxname, den ich ja nicht kenne! Habe ich wohl unglücklich dargestellt.
Im Übrigen, wenn Du schon korrigierst, dann bitte sparsam:


Dim sPath, sSuchtext As String

Diese Deklaration tut's genauso, ist aber 10 Byte kleiner!
Soo. Das musste ich mal loswerden ;-)))
Gruss
Klaus K.

AW: Aus textbox in google

15.10.2007 10:18:23

Oberschlumpf

Hi Klaus
Schau dir mal diesen Thread an:
https://www.herber.de/forum/messages/915249.html
In deiner Version wird nun sPath auch "nur" als Variant aber nicht als String deklariert ;-)
Und um den Code noch kürzer zu machen, vllt so:


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

ups.....

15.10.2007 12:21:05

Klaus

@oberschlumpf
Vielen Dank für Deinen Hinweis.
Ein Blick ins Fachbuch offenbart:
Bsp: Dim A, B, C, D As Integer (auch andere Typen)
Nur D wird hier als Integer behandelt
A, B, C gilt als nicht deklariert und wird somit automatisch als Variant definiert. Visual Basic konvertiert Variant jedoch automatisch in Double, String oder Date. Je nach Inhalt der Variable.
Korrekt wäre also: Dim A As Integer, B As Integer, C As Integer, D As Integer
Je nach Bedarf geht auch: Dim A As Byte, B As Boolean, C As Integer, D As String ... usw.
Bis jetzt konnte ich aber nichts darüber finden, warum Variant-Variablen nach dem Alphabet sortiert werden sollten. Variant löst lediglich die automatische Konvertierung in Double, String oder Date aus. Da eine automatische Konvertierung in alle anderen Typen z.B. Byte oder Boolean nicht stattfindet, ist eine korrekte Deklaration unerlässlich.
Insofern nochmal Danke an Thorsten, dass ich mich jetzt noch mal mit diesem Thema beschäftigen musste :)
Gruss
Klaus K.

Beliebteste Forumthreads (12 Monate)

Forumthread: Aus textbox in google

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread