Office: (Office 2010) Postleitzahlen gruppieren

Helfe beim Thema Postleitzahlen gruppieren in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo, ich habe folgendes Problem: allen Postleitzahlen in Deutschland ist ein Mitarbeiter zugeordnet. Z.B. 77212 Müller 77213 Müller 77214 Müller... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von wschmittw, 27. Oktober 2015.

Seite 1 von 3

WSCHMITTW

wschmittw

Postleitzahlen gruppieren

Hallo,

ich habe folgendes Problem: allen Postleitzahlen in Deutschland ist ein Mitarbeiter zugeordnet. Z.B.

77212 Müller
77213 Müller
77214 Müller
77216 Müller
77218 Maier
77220 Maier
77222 Schmidt

Die Daten sollen nach "Postleitzahl von - bis" gruppiert werden, das Ergebnis soll so aussehen:

77212 - 77216 Müller
77218 - 77220 Maier
77222 - 77222 Schmidt

Ist es möglich, das über Access hinzubekommen? Vielen Dank schon mal für Eure Hilfe!

Gruß Werner

:)

wschmittw, 27. Oktober 2015

#1
GPSWANDERER

gpswanderer

Hallo,
so sollte das klappen:
Code:

SELECT Min(Plz) AS Von,
Max(Plz) AS Bis,
Nachname
FROM TabellenName
GROUP BY Nachname
ORDER BY Min(Plz)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gpswanderer, 28. Oktober 2015

#2
WSCHMITTW

wschmittw

Hallo Klaus,

das ist ja nur genial - genau das, was ich gesucht habe. Vielen Dank!

Gruß Werner

wschmittw, 28. Oktober 2015

#3
EL_GOMERO

el_gomero

Postleitzahlen gruppieren

Moin,

dann bleibt nur zu hoffen, dass kein Müller sonstwo in D einer PLZ zugeordnet wurde *entsetzt

In einer normalisierten db sollten die Personen in einer eigenen Tabelle stehen und in der zu betrachtenden nur der Fremdschlüssel aus der Personentabelle. *wink.gif*

el_gomero, 28. Oktober 2015

#4
MAXEL

Maxel

von el_gomero

dann bleibt nur zu hoffen, dass kein Müller sonstwo in D einer PLZ zugeordnet wurde
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Genau, bei knapp 30.000 Postleitzahlen ist das nicht unwahrscheinlich, denn

von wschmittw

allen Postleitzahlen in Deutschland ist ein Mitarbeiter zugeordnet.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

Maxel, 28. Oktober 2015

#5
TOAST78

Toast78

Sind wir mal AUSNAHMSWEISE optimistisch und gehen davon aus, dass der Fragesteller zu jedem Mitarbeiter auch die ID oder Personal-Nr. in der Abfrage anzeigt *wink.gif*

Toast78, 29. Oktober 2015

#6
WSCHMITTW

wschmittw

Hallo,

zunächst: ja, die Personen habe ich in einer eigenen Tabelle - mit Personalnummer.

Das Problem ist aber doch noch nicht gelöst. Ich ändere mein Beispiel mal ab:

77212 Müller
77213 Müller
77214 Müller
77216 Schmidt
77218 Maier
77220 Maier
77222 Schmidt

Als Ergebnis bekomme ich dann:

77212 - 77214 Müller
77216 - 77222 Schmidt
77218 - 77220 Maier

Richtig wäre:

77212 - 77214 Müller
77216 - 77216 Schmidt
77218 - 77220 Maier
77222 - 77222 Schmidt

Ist das zu machen? Herzlichen Dank schon mal für die Hilfe!

Gruß Werner

wschmittw, 7. November 2015

#7
EBS17

ebs17

Postleitzahlen gruppieren

Das Problem ist aber doch noch nicht gelöst.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das hatte ich erwartet. Es wäre ein extremer Zufall, wenn es keine wechselnden PLZ-Bereiche für die Personen mit schöner Durchmischung gäbe.

Ist das zu machen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja.
Ansatz: Du erstellst eine Abfrage, wo ermittelt wird, ob es für eine PLZ keinen Vorgänger mit gleicher Person gibt. Das wären jeweils die Beginne der Zeiträume.
Das gleiche machst Du für die Nachfolger.
Im dritten Schritt bringt man diese beiden Abfragen zusammen.

ebs17, 7. November 2015

#8
WSCHMITTW

wschmittw

Hallo Eberhard,

danke für Deine Antwort. Mit meinen eher bescheidenen Access-Kenntnissen ist das leichter gesagt als getan. Wie mache ich eine Abfrage, die ermittelt, ob es für eine PLZ keinen Vorgänger mit gleicher Person gibt?

wschmittw, 7. November 2015

#9
WSCHMITTW

wschmittw

Hallo,

in einem anderen Forum habe ich nachfolgende Lösung gefunden, die meinem Problem sehr nahe kommt. Nur gibt es bei dieser Lösung nicht nur ein Feld "PLZ", sondern zwei Felder: Postleitzahl von und bis (sVon und sBbis). Geht die Lösung auch nur mit einem Feld "PLZ"?

Code:

Sub nt()
Dim db As DAO.Database
Dim rsQ As DAO.Recordset
Dim rsZ As DAO.Recordset
Dim sVon As String
Dim sBis As String
Dim lZone As Long

Set db = CurrentDb
Set rsZ = db.OpenRecordset("tblPlzbereiche_neu")
Set rsQ = db.OpenRecordset("SELECT DISTINCT PLZ_von, PLZ_bis, Zone" _
& " FROM tblPlzbereiche" _
& " ORDER BY PLZ_von", dbOpenForwardOnly)
With rsQ
sVon = .Fields(0)
sBis = .Fields(1)
lZone = .Fields(2)
Do While Not .EOF
If .Fields(2) = lZone Then
sBis = .Fields(1)
Else
rsZ.AddNew
rsZ.Fields(0) = sVon
rsZ.Fields(1) = sBis
rsZ.Fields(2) = lZone
rsZ.Update
sVon = .Fields(0)
sBis = .Fields(1)
lZone = .Fields(2)
End If
.MoveNext
Loop
' letzter Eintrag
rsZ.AddNew
rsZ.Fields(0) = sVon
rsZ.Fields(1) = sBis
rsZ.Fields(2) = lZone
rsZ.Update
.Close
End With
rsZ.Close
Set rsZ = Nothing
Set rsQ = Nothing
Set db = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Werner

wschmittw, 8. November 2015

#10
WB_3001

wb_3001

Hallo Werner!

Eine Tabelle tblPlzbereiche_neu mit folgenden Feldern hinzufügen:
PlzVon, PlzBis, Person, PersID.
PlzVon, PlzBis, PersID haben wie auch die zugehörigen Ausgangsfelder den Felddatentyp long.

Ein allgemeines Modul zB. mit Namen mdlPLZBereiche hinzufügen.
Den folgenden Code einfügen: Code:

Option Compare Database
Option Explicit

Sub PlzVonBis()
Dim DB As DAO.Database
Dim rsQ As DAO.Recordset
Dim rsZ As DAO.Recordset

Dim strSQL As String
Dim lPersID As Long
Dim strPerson As String
Dim lPlzVon As Long
Dim lPlzBis As Long

Set DB = CurrentDb
strSQL = "Delete * from tblPlzbereiche_neu;"
DB.Execute strSQL, dbFailOnError
Set rsZ = DB.OpenRecordset("tblPlzbereiche_neu")

strSQL = "SELECT PLZ, PersID, Person FROM tblPLZPers ORDER BY PLZ, PersID;"
Set rsQ = DB.OpenRecordset(strSQL, dbOpenDynaset)
With rsQ
lPlzVon = !PLZ
lPlzBis = !PLZ
lPersID = !PersID
strPerson = !Person
Do While Not .EOF
If rsQ!PersID lPersID Then
rsZ.AddNew
rsZ!PersID = lPersID
rsZ!Person = strPerson
rsZ!PlzVon = lPlzVon
rsZ!PlzBis = lPlzBis
rsZ.Update
lPlzVon = !PLZ
lPlzBis = !PLZ
lPersID = !PersID
strPerson = !Person
Else
lPlzBis = rsQ!PLZ
End If
.MoveNext
Loop
.Close
End With
' letzte Daten übernehmen
rsZ.AddNew
rsZ!PersID = lPersID
rsZ!Person = strPerson
rsZ!PlzVon = lPlzVon
rsZ!PlzBis = lPlzBis
rsZ.Update
rsZ.Close
Set rsZ = Nothing
Set rsQ = Nothing
Set DB = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wolfgang

wb_3001, 8. November 2015

#11
WSCHMITTW

wschmittw

Hallo Wolfgang,

habe Dein Script mit meinen bescheidenen VBA-Kenntnissen eben getestet und - siehe da - ex funktioniert! Gganz herzlichen Dank für Deine Hilfe!

Gruß Werner

wschmittw, 8. November 2015

#12
JOSEF P.

Josef P.

Postleitzahlen gruppieren

Hallo!

Teste bitte einmal diese Sql-Anweisung:
Code:

select
X3.StartPlz,
Nz((select Max(X4.PLZ) from tPlzPers X4 where X4.Person = X3.Person AND X4.Plz < X3.NaechsterPlzBereich and X4.Plz >= X3.StartPlz), X3.StartPlz) AS EndPlz,
X3.Person
From (
select
Min(X2.Plz) as StartPlz, X2.NaechsterPlzBereich, X2.Person
from (
SELECT
X1.PLZ, X1.Person,
(select Min(X.PLZ) from tPlzPers as X where X.PLZ > X1.PLZ and X.Person X1.Person ) as NaechsterPlzBereich
from
tPlzPers X1
) X2
Group By
X2.Person, X2.NaechsterPlzBereich
) X3
Order By 1, 2, 3
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg
Josef

Josef P., 8. November 2015

#13
WB_3001

wb_3001

Hallo Josef!

Toll. Bin sehr beeindruckt.

Wolfgang

wb_3001, 8. November 2015

#14
EBS17

ebs17

Die Lösung von Josef hat mein Lösungen-Archiv bereichert. Vielen Dank.

ebs17, 9. November 2015

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 3

Thema:

Postleitzahlen gruppieren

Die Seite wird geladen...

Postleitzahlen gruppieren - Similar Threads - Postleitzahlen gruppieren
Postleitzahl von bis mit Location code
in Microsoft Excel Hilfe
Postleitzahl von bis mit Location code: Guten Tag, Ich hab eine Excel Tabelle wo ich Postleitzahl VON- BIS habe mit der Location Code. in der andere Tabelle hab ich pro PLZ, Gewicht und Zone jetzt muss ich es ausrechnen was ich Pro...
Anzeigen von Zahlen als Postleitzahlen
in Microsoft Excel Tutorials
Anzeigen von Zahlen als Postleitzahlen: Anzeigen von Zahlen als Postleitzahlen Excel für Microsoft 365 Excel 2019 Excel 2016 Excel 2013 Excel 2010 Excel 2007 Mehr... Weniger...
Anzeigen von Zahlen als Postleitzahlen, Sozialversicherungsnummern oder Telefonnummern
in Microsoft Excel Tutorials
Anzeigen von Zahlen als Postleitzahlen, Sozialversicherungsnummern oder Telefonnummern: Anzeigen von Zahlen als Postleitzahlen, Sozialversicherungsnummern oder Telefonnummern Excel für Microsoft 365 für Mac Excel 2019 für Mac Excel 2016 für Mac Excel für...
Führende Null bei Postleitzahlen
in Microsoft Access Hilfe
Führende Null bei Postleitzahlen: Hallo zusammen, ich habe schon einige Seiten gefunden, wo es beschrieben wird. Aber warum auch immer wird mir die führende Null nicht angezeigt. Ich kann ohne Probleme "01234" in mein PLZ-Feld...
Automatisch Ort bei Eingabe von Postleitzahl
in Microsoft Access Hilfe
Automatisch Ort bei Eingabe von Postleitzahl: Hallo *Smilie, das ist mein erster Beitrag im Forum, aber ich glaube, dass dies ein Problem ist, dessen Lösung in der Praxis ziemlich nützlich sein könnte. Ich sage schon mal vorab: Ich bin...
Entfernung km in Excel PLZ
in Microsoft Excel Hilfe
Entfernung km in Excel PLZ: Hi zusammen, bin auf dersuche nach einer Möglichkeit in Excel Entfernungen zu berechnen. Reicht über PLZ. Also Spalte A Start, B ziel, C = Berechnung der Entfernung. gibt es hier eine einfache...
Postleitzahl und Ortsnamen zuweisen
in Microsoft Excel Hilfe
Postleitzahl und Ortsnamen zuweisen: Hallo, ich habe eine ursprüngliche Adressdatenbank wo leider jeweils der Ort fehlt. Nun habe ich mir eine Postleitzahlen-Liste gezogen und würde gerne die PLZ zuweisen. siehe Grafik:...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden