Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Postleitzahlen suchen

Forumthread: Postleitzahlen suchen

Postleitzahlen suchen
09.01.2006 15:34:42
Wolfgang
Hallo liebe Anwender(innen),
ich habe das Problem, das unsere Aussendienstler einem PLZ-Bereich zugeordnet sind und ich die Daten wie folgt bekomme:
In einer Excelzelle steht : 29650-33999, 37000-38799, 49000-49599, 49700-49999
und in der nächsten Zelle der dazu gehörige Verkäufer.
Wie kann ich jetzt eine Suchfunktion gestalten wenn ich vom Kunden die gesamte oder einen Teil der PLZ habe? Mir bereiten die Bereichsangaben und das alles in eine Zelle steht Schwierigkeiten
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Postleitzahlen suchen
09.01.2006 15:54:19
th.heinrich
hi Wolfgang,
was willst Du denn, wie auswerten?
Mir bereiten die Bereichsangaben und das alles in eine Zelle steht Schwierigkeiten
plz mit Daten-Text in Spalten aufteilen, mit Autofilter bzw. Spezialfilter auswerten.
evtl. auch Pivot
gruss thomas
ps. tab hochladen
Anzeige
AW: Postleitzahlen suchen
09.01.2006 16:12:10
u_
Hallo,
mal als Ansatz:

Sub namen()
Dim vntArr, vntTmp(), strPLZ As String, i As Long, n As Long, z As Long
z = Cells(1, 1).End(xlDown).Row
n = 1
ReDim Preserve vntTmp(1 To 1, 1 To n)
vntArr = Range(Cells(1, 1), Cells(1, 2).End(xlDown))
strPLZ = InputBox("PLZ?")
For i = 1 To UBound(vntArr)
If Mid(vntArr(i, 1), 1, Len(strPLZ)) * 1 <= strPLZ * 1 And Mid(vntArr(i, 1), 7, Len(strPLZ)) * 1 >= strPLZ * 1 Then
ReDim Preserve vntTmp(1 To 1, 1 To n)
vntTmp(1, n) = vntArr(i, 2)
n = n + 1
End If
Next i
Sheets(2).Columns(1).ClearContents
For i = 1 To n - 1
Sheets(2).Cells(i, 1) = vntTmp(1, i)
Next
End Sub
Gruß
Geist ist geil!
Anzeige
AW: Postleitzahlen suchen
09.01.2006 16:47:32
Peter
Hallo Wolfgang,
die beigefügte Excel-Mappe ist ggf. das, was du suchst:
https://www.herber.de/bbs/user/29859.xls
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: kleine Korrektur
09.01.2006 16:57:35
Peter
Hallo Wolfgang,
eine kleine Korrektur noch:
https://www.herber.de/bbs/user/29860.xls
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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