Google-Maps suche

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub WebsucheWikipedia_Click() Dim strSuche As String 'strSuche = Worksheets(4).Range("J7") strSuche = Worksheets(4).Range("J7") strSuche = Replace(strSuche, " ", "+") ActiveWorkbook.FollowHyperlink Address:="http://www.de.wikipedia.org/w/index.php?search=" & _ strSuche, NewWindow:=True End Sub

Private Sub DeinButtonName_Click() Dim strSuche As String 'strSuche = Koordinaten des Standorts im jeweiligen Blatt,[j7] eventuell anpassen strSuche = activesheet.[j7] ActiveWorkbook.FollowHyperlink Address:="http://maps.google.de/#hl=de&sclient=psy-ab&q=" & _ strSuche, NewWindow:=True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim ws As Worksheet If Target.Address = "$J$7" Then Application.EnableEvents = False For Each ws In ThisWorkbook.Worksheets Select Case ws.Name Case Is = ActiveSheet.Name Case Is = "DieseTabelleNicht" ' Für jedes auszunehmende Tabellenblatt so eine " _ CASE IS" Zeile Case Is = "DieseTabelleAuchNicht" ' mit dem entsprechenden Tabellennamen in Anfü _ hrungszeichen Case Else ws.[j7] = ActiveSheet.[j7] End Select Next ws End If Application.EnableEvents = True End Sub

Hi Jomo,
mit dem "richtigen Suchstring" meinst du wohl "http://maps.google.com/maps?q=" ?
Das kannst du dir ergoogeln. Such mal nach "Parameter für Google Maps", da findest du jede Menge Informationen.
Zur Übernahme der Zelleinträge in die anderen Tabellenblätter:
Ich hatte dich doch gebeten:
Poste mal, wie deine Tabellenblätter heissen, mit der Angabe ob sie die Suche ausführen sollen (ja/nein)
Mach das bitte mal, dann habe ich auch eine Idee.
Hast du meinen Beispielcode auch so abgeändert wie beschrieben ?
Da wo in meinem Beispiel "DieseTabelleNicht" bzw. "DieseTabelleAuchNicht" steht, musst du deine auszunehmenden Tabellenblattnahmen einsetzen. Wenn du noch mehr Blätter ausnehmen willst, brauchst die für jedes weiter noch eine Case Is Zeile mit dem jeweiligen Blattnahmen.
Hast du den Code auch so platziert, wie ich die beschrieben habe ?
Diesen Code kopierst du im VBA-Projektexplorer in jedes Tabellenblatt, aus dem heraus diese Maps-Suche erfolgen soll. In allen anderen Blättern steht dieser Code nicht!
Gruss Flock

Hi,
also ich hatte es so angepasst:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
If Target.Address = "$J$7" Then
Application.EnableEvents = False
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case Is = ActiveSheet.Name
Case Is = "Tabelle1"
' Für jedes auszunehmende Tabellenblatt so eine "CASE IS" Zeile
Case Is = "Tabelle2"
' mit dem entsprechenden Tabellennamen in Anführungszeichen
Case Is = "Tabelle3"
Case Is = "Tabelle9"
Case Is = "Tabelle10"
Case Is = "Tabelle11"
Case Is = "Tabelle13"
Case Is = "Tabelle14"
Case Is = "Tabelle15"
Case Is = "Tabelle16"
Case Is = "Tabelle17"
Case Is = "Tabelle 18"
Case Else
ws.[j7] = ActiveSheet.[j7]
End Select
Next ws
End If
Application.EnableEvents = True
End Sub

Da sind jetzt vorläufig mal die Tabellenblätter drin die es nicht betreffen sollte könnten aber noch mehr werden...hab es auch in die entsprechenden tabellen im vba-explorer, also die, die es betrifft. Oder brauchst du nicht "Tabelle 4" sondern wie ich es umbenannt habe z.b "Hotel"? Müsste ja eigentlich egal sein oder?!
Ja das hatte ich mit Suchstring gemeint...Müsste nämlich auch noch auf dieser Seite (http://www.varta-guide.de/) nach dem Standort in J7 suchen...
Gruß Jomo

Private Sub Worksheet_Change(ByVal Target As Range) Dim ws As Worksheet If Target.Address = "$J$7" Then Application.EnableEvents = False For Each ws In ThisWorkbook.Worksheets If ws.name Activesheet.Name Then ' Für "Tab4" bis "Tab8" deine Blattnamen vom Blattreiter abschreiben If ws.name = "Tab4" or Ws.name = "Tab5" or ws.name = "Tab6" or Ws.name= "Tab7" _ or ws.name = "Tab8" then ws.[j7] = ActiveSheet.[j7] End If End if Next ws End If Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread