Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: PLZ anhand der Adresse und des Ortes herausfinden

PLZ anhand der Adresse und des Ortes herausfinden
19.06.2024 16:23:36
grubi28
Hallo,

ich habe eine Liste in Excel angefertigt, jedoch benötige ich noch die PLZ in der 4. Spalten. Gibt es eine Möglichkeit wie zum Beispiel API oder ähnliches, damit das automatisch funktioniert.

Vielen Dank für die Hilfe.

https://www.herber.de/bbs/user/170365.xlsx
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PLZ anhand der Adresse und des Ortes herausfinden
19.06.2024 16:58:27
Onur
Da musst du dir eine Webseite suchen, wo das möglich ist und deine Datei damit verknüpfen.
AW: PLZ anhand der Adresse und des Ortes herausfinden
20.06.2024 11:23:52
Alwin Weisangler
Hallo,

wenn du aktuelle PLZ haben willst, bleibt nur der Weg über Postdirekt. Dieser ist der Urheberrechtsinhaber des PLZ in Deutschland.
Aber man kann via Browser zumindest bis es der Domain zu bunt wird halbwegs automatisiert die PLZ abgreifen und einpflegen.
Dazu kann man .SendKeys nutzen.
Es ist nicht sonderlich flott aber dafür kostenfrei.

Postdirekt bietet da auch ein API Zugriff an, aber dieser ist mit Sicherheit entsprechend kostenpflichtig.
https://www.herber.de/bbs/user/170377.xlsm

Gruß Uwe
Anzeige
AW: PLZ anhand der Adresse und des Ortes herausfinden
20.06.2024 19:46:28
Alwin Weisangler
Hallo,

ich habe mal das ermitteln der PLZ im String per Schleife (Prüfung auf 5-stelligkeit) separiert. Das ist funktionssicherer als vorher.
Ändere diese Prozedur so:


Private Sub WerteInArray()
Dim objDataObject As DataObject, tmp$, i&, k&
Set objDataObject = New DataObject
objDataObject.GetFromClipboard
tmp = objDataObject.GetText
Set objDataObject = Nothing
For i = 1 To Len(tmp)
If IsNumeric(Mid(tmp, i, 1)) Then
k = k + 1
If k = 5 Then
Ort = Mid(tmp, i - 4, 5)
Application.Wait Now + TimeValue("00:00:02")
Exit Sub
End If
Else
k = 0
End If
Next i
End Sub


Gruß Uwe
Anzeige
Off topic: Vorwahl 08329? / AW: 31.442 Postleitzahlen
19.06.2024 20:19:46
tobias
Hallo Boris,

absoluter Off Topic Hinweis: Nach meinen Unterlagen ist die Vorwahl 08329 für den Ort 87567 Riezlern Kleinwalsertal nicht mehr gültig.

Rückfragen gerne.

Grüße,
tobias
ich bin WF nicht Boris
19.06.2024 20:33:54
WF
.
ups / AW: ich bin WF nicht Boris
19.06.2024 21:38:30
tobias
Hallo WF,

ich bitte um Nachsicht ob meiner falschen Anrede.

Inhaltlich gilt meine Rückmeldung weiter.

Grüße,
tobias
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige