Clever-Excel-Forum

Normale Version: Suche nach umliegenden Orten
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2 3
Hallöchen,

Zitat:hilft das?

… höchstens, wenn auch ein API-Key freigeschalten wurde. Der wäre bei den zu erwartenden Anfragen dann wohl auch nicht mehr kostenlos.

Ansonsten, siehe da (Umkreissuche)
serp-perception.com/umkreissuche.php, cebus.net/de/geo.php
oder da (Routenoptimierung)
multiroute.de, toptaas.de ...
Hallo, :19:

ein Ansatz - keine Komplettlösung: :21:

Open Streetmap API Tutorial: Umkreissuche...
in einem Nachbar-Forum wurde diese Thema auch diskutiert:

http://www.office-loesung.de/p/viewtopic.php?f=166&t=680183&start=15

Das zeigt auch, wie komplex eine Lösung sein kann

Hallo,

eine Umkreissuche mit selbst-geschriebenem Code. Für ein Beispiel ging es:

Code:
$userAgent = "Mozilla/5.0 (Windows NT 10.0; rv:68.0) Gecko/20100101 Firefox/68.0"

$url = "http://www.serp-perception.com/umkreissuche.php/de/geo.php"

$post = @{}
$post.Add('plz', 'hier die PLZ als Zahl') # <<<<<<<<< anpassen >>>>>
$post.Add('free_umkreis','10')
$post.Add('suchen','suchen')

$ret = iwr $url -UserAgent $userAgent -Method Post -Body $post

$ret.statuscode
$PLZ = $ret.AllElements.FindById('res_plzcities')

foreach ($pl in $PLZ) { $pl.innerText }

mfg
um Mehrdeutigkeiten von Ortsnamen zu vermeiden, ist es besser die PLZ zu nutzen:

Code:
$userAgent = "Mozilla/5.0 (Windows NT 10.0; rv:68.0) Gecko/20100101 Firefox/68.0"

$PLZ = 'xxxxx'
$url = "http://www.geonames.org/search.html?"
$city = "q=frankfurt&country=DE" # City
$PLZi = "q=$PLZ&country=DE"

$ret = iwr ($url + $PLZi) -UserAgent $userAgent

$geo = $ret.Links | where {$_.innerText.contains('.')}
($PLZ + " : " + $geo.innerText)

Eine Schleife über viele PLZ ist einfach, ob die Webseite ein Limit der Anfragen hat, müßte geprüft werden.
Danke für den Link, aber den kenne ich schon.

Vielen Dank für Eure Hilfe.

Ich denke, das ist für mich zu kompliziert und ich suche dann lieber wie gewohnt weiter.

Ort - Umkreissuche und dann in meiner Datenbank nacheinander nach den Orten die entsprechenden Bestatter.

Tja, man kann nicht alles bekommen was einem vorschwebt.    Angel
Hallo, :19:

du kannst doch aus dem Link von André eine Umkreissuche zu einer PLZ machen. Das geht natürlich dann auch per VBA. Probleme sehe ich eher bei der von dir angegebenen Anzahl von ca. 8.500. :21:
Hallo Case,

ich habe 0 Ahnung wie man etwas mit VBA macht.

Es sieht für mich so aus:

Ich habe z. B. eine Anfrage aus "Dabringhausen = PLZ 42929, wo es keinen Bestatter direkt gibt.
Jetzt muss ich schauen, welcher Ort liegt in der Nähe. Hier ergibt es sich zufällig, dass die PLZ = Wermelskirchen ist.
Aber in Wermelskirchen habe ich nur 2 Bestatter und somit nicht viel Auswahl.

Das ist der Grund für die Suche im Umkreis zu Dabringhausen.
Ich würde jetzt gerne die Orte: Remscheid, Solingen, Leverkusen, etc. finden wollen, die alle im Umkreis von 20 km liegen.

Im Regelfall habe ich auch zu allen PLZ das Bundesland und nur im Grenzbereich der Bundesländer würde es sich evtl. überschneiden.

Hilft Dir diese Ausführung weiter?

LG Ingrid
Hallo Ingrid,

warum willst du denn das unbedingt in Excel nachbilden, was im Netz bestens funktioniert? So sieht die mehr als einfache Bedienung der Seite http://www.serp-perception.com/umkreissuche.php, die dir von André empfohlen wurde, aus:

Aufruf der Seite

[attachment=26851]

Suche

[attachment=26852]
Ich möchte diese Suche dann gleich in meiner Exceltabelle realisieren, denn mit der Datenbank muss ich ja immer separat in der Exceltabelle jeden einzelnen Ort suchen und dann erfolgen Anfragen per Mail.
Praktischer ist es, wenn dann die Orte schon alle in Excel untereinander stehen, damit ich die Mails besser versenden kann.
Hallo Ingrid, :19:

grundsätzlich so: :21:
[attachment=26854]

Die Schleifen müssen nicht unbedingt sein, aber das dürfte dich eher weniger interessieren. :17:

Ausgabe in Spalte A wie die rechte Spalte der HP und Spalte B wie die mittlere Spalte (Orte ohne Doppler). Dodgy
Seiten: 1 2 3