Postleitzahlen Bereich aufschlüsseln

[No3Fx]

Hallo liebe Ecxel Profis ! 

Ich bin gerade dabei eine Vergleichsliste zu erstellen.
Dafür muss ich allerdings einen Bereich von Postleitzahlen aufschlüsseln.

Das ganze sieht aktuell so aus : 


00000 bis 06439
06450 bis 06457
06520 bis 09999
35000 bis 36999
50000 bis 57999



usw..... 

Ich müsste jetzt aber alle Einzelschritte darin aufgeführt bekommen ergo so : 
00000
00001
00002
ff.

06450
06451
06452

ff.


usw.... 

Gibt es hier eine einfache kreative Lösung? 

Denn Manuell ist das bei der Länge der Original Liste nicht machbar... ^^ bzw. Nur in SEHR SEHR LANGER ZEIT.


Vielen Dank schon mal !!!

Gruß

Fabi

[WillWissen]

Hallo Fabi,

erklär doch mal genauer, was du wo oder wie vergleichen willst. Am besten mit einer Beispieltabelle mit händisch eingetragenen Wunschergebnissen. https://www.clever-excel-forum.de/thread-326.html

[shift-del]

Moin

Verstehe ich das richtig: Du möchtest Zahlenbereiche in die Einzelwerte auflösen?
Also:
157-161
165-168

In:
157
158
159
160
161
165
166
167
168

Das sollte mit PQ möglich sein.

[No3Fx]

Hallo, 

exakt das ist es  :)

im Prinzip nur aufzählen der Bereiche.

Beispiel Tabelle anbei (Farbige Kennzeichnung nur zum besseren Verständnis).

Wo es am Ende in der Tabelle steht ist mir auch egal, ich benötige wie gesagt nur die Option alle Bereiche auf zu schlüsseln.... 
es sind halt deutlich mehr Bereiche als in meinem Beispiel angegeben.


Gruß

Fabian

[Kuwer]

Hallo Fabian,

z.B. so:

Sub aaa()
  Dim lngB As Long, lngP As Long, lngZ As Long
  Dim varB As Variant, varQ As Variant, varZ As Variant
  
  varQ = Cells(1).CurrentRegion.Value
  For lngZ = 1 To UBound(varQ)
    varB = Split(varQ(lngZ, 1), ";")
    lngB = varB(1) - varB(0) + 1
    ReDim varZ(1 To lngB, 1 To 1)
    For lngP = 1 To lngB
      varZ(lngP, 1) = Format(varB(0) + lngP - 1, "'00000")
    Next lngP
    Cells(1, lngZ + 2).Resize(UBound(varZ), 1).Value = varZ
  Next lngZ
End Sub

Gruß Uwe

[No3Fx]

ohje, ich glaube das ist mir zu hoch

habe nebenbei leider auch kein Power Query in meiner Excel Version... :(

[DietmarD]

Hallo Fabi,
das kannst du evtl.über Text in Spalte lösen.

1. makiere deine Spalte mit dem Daten
2. dann auf das Register Daten
3. auf Text in Spalte, dann im Fenster auf Getrennt und Weiter
4. setze den Haken auf Andere und setze ein ; ein dann weiter und fertig

sicher vorher deine Tabelle

wäre eine Variante

[Jockel]

Hallo, wenn alles untereinander könnte, wäre ich auch bei einer PQ-Lösung, so ist's aber denke ich einfacher. Uwe: toller Job!

[Jockel]

ohje, ich glaube das ist mir zu hoch

habe nebenbei leider auch kein Power Query in meiner Excel Version... :(

Hallo, ab XL2010 kann man das kostenlose Add-Inn direkt von Microsoft herunterladen... ... Ab XL2016 ist es dann schon fest integriert.

[Jockel]

Hallo Fabi,
das kannst du evtl.über Text in Spalte lösen.
...
wäre eine Variante

Hallo, das glaube ich nicht... Magst du das mal näher erläutern..?