Umstellung von Suchabfrage

Hallo*
immer noch auf der Suche nach einer Abfragemöglichkeit in der Datenbank der Arbeitsagentur.de habe ich meine EXCEL-CD von Herrn Herber durchstöbert und bin auch auf untenstehenden Code gestossen. Wie könnte der Code angepaßt werden, um anstatt in Fireball die Suchabfrage unter http://www.arbeitsagentur.de zu starten. Ich habe einmal die Webpage in WORD geladen und folgende Eigenschaften für das Feld Suchen und für die Schaltfläche Suchen ausfindig zu machen. Es gelingt mir aber einfach nicht, den Code anzupassen. Kann mir da vielleicht jemand behilflich sein? - Ich wäre sehr dankbar !!
Herzliche Grüße - Wolfgang
Hier zunächst die Eigenschaften der Felder in der Website:
Name des Suchfeldes:
DefaultOcxName9
HTMLName: keywordeinfach
Name der Schaltfläche "Suche starten"
DefaultOcxName10
Action: /vam/vamController/Contentsuche/
HTMLName: cmd#einfacheSuche
Encoding: application/x-www-form-urlencoded
Method: get
und hier der Code von der CD von Herrn Herber:
Sub WebSuche() Dim SuchString$ Application.ScreenUpdating = False SuchString = <a href=""http://www.fireball.de/query-fireball.fcg?"">"http://www.fireball.de/query-fireball.fcg?"</a> SuchString = SuchString & "action=query&pg=express&q=%22" SuchString = SuchString & ActiveCell & "%22&what=german_web&fmt=d" ActiveCell = SuchString With ActiveCell .Hyperlinks.Add ActiveCell, SuchString .Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True .Hyperlinks(1).Delete .ClearContents End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Josef,
danke für Deine Hinweise und Ausarbeitungen; Ich habe sie versucht sie, in dem Beispiel einzuarbeiten (siehe unten); Es klappt soweit super. Dafür recht herzlichen Dank. Ich bin sehr froh !
Das Problem ist nun, dass mir jeweils das Suchwort in der entsprechenden Zelle gelöscht wird. Ich müßte also mit einer Hilfstabelle arbeiten. Wie kann ich realisieren, dass bei Doppelklick in die Zelle mit dem Suchbegriff dieser Suchbegriff in Zelle A1 der Hilfstabelle (ich nenne sie 'mal Daten) kopiert und aktiviert wird und dann der Code zum Suchen startet, so dass der Suchbegriff in Spalte I noch erhalten bleibt. Ist es auch dabei möglich, den Doppelklick in jedem Tabellenblatt nur auf Spalte I zu begrenzen? Danke nochmals für Deine bisherigen Mühen und für evtl. Rückmeldungen.
Herzliche Grüße
Wolfgang
Hier der geänderte Code (ich habe das Http weggelassen, da er dann alles irgendwie doppelt)
Sub WebSuche() Dim SuchString$ Application.ScreenUpdating = False SuchString = .....www.arbeitsagentur.de/vam/vamController/Contentsuche/? SuchString = SuchString & "defaultCmd=cmd%23einfacheSuche&rqc=2&ls=false&ut=0&keywordeinfach=" SuchString = SuchString & ActiveCell ActiveCell = SuchString With ActiveCell .Hyperlinks.Add ActiveCell, SuchString .Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True .Hyperlinks(1).Delete .ClearContents End With End Sub
Kann dieser Code der sich unter Arbeitsmappe befindet, angepaßt werden, damit der Doppelklick nur in Spalte I funktioniert?
Public


Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread