Postleitzahlen Bereich aufschlüsseln

[No3Fx]

warum macht es das dann bei mir?

[Kuwer]

Hallo,

hier auch noch per VBA untereinander in eine Spalte:

Sub PLZ_einzeln_untereinander_in_Spalte_C()
  Dim lngB As Long, lngE As Long, lngP As Long, lngSpalte As Long, lngZ As Long
  Dim varB As Variant, varQ As Variant, varZ As Variant
  
  varQ = Cells(1).CurrentRegion.Value
  lngE = 1
  lngSpalte = 3 '3 für Spalte C
  Columns(lngSpalte) = ""
  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(lngE, lngSpalte).Resize(UBound(varZ), 1).Value = varZ
    lngE = lngE + lngB
  Next lngZ
End Sub

Gruß Uwe

[No3Fx]

Ja Perfekt, das klappt prima !

Kann man hier noch die Möglichkeit ergänzen Spalte 2 der jewiligen Postleitzahl zu zu ordnen?

Code:

    PLZ             AD

06440;06449;D    AU
06458;06519;D    AU
10000;34999;D    AU
37000;49999;D    AU
58000;59999;D    AU
00000;06439;D    DP
06450;06457;D    DP
06520;09999;D    DP
35000;36999;D    DP
50000;57999;D    DP
60000;69999;D    DP
74720;74739;D    DP
74744;74746;D    DP
74749;74799;D    DP
76000;76138;D    DP
76140;76189;D    DP
76290;76299;D    DP
76340;76355;D    DP
76660;76668;D    DP
76670;76679;D    DP
76706;76708;D    DP
76720;76999;D    DP
84030;84033;D    DP
84040;84099;D    DP
84101;84108;D    DP
84150;84154;D    DP
84164;84165;D    DP
84187;84188;D    DP
84337;84338;D    DP
84340;84366;D    DP
84370;84374;D    DP
84378;84386;D    DP
84389;84399;D    DP
85000;85115;D    DP
85117;85199;D    DP
85270;85292;D    DP
85296;85297;D    DP
85300;85301;D    DP
85304;85304;D    DP
85307;85379;D    DP
85390;85398;D    DP
85400;85429;D    DP
85777;85777;D    DP
90000;99999;D    DP
70000;74719;D    TF
74740;74743;D    TF
74747;74748;D    TF
74800;75999;D    TF
76139;76139;D    TF
76190;76289;D    TF
76300;76339;D    TF
76356;76659;D    TF
76669;76669;D    TF
76680;76705;D    TF
76709;76719;D    TF
77000;84029;D    TF
84034;84039;D    TF
84100;84100;D    TF
84109;84149;D    TF
84155;84163;D    TF
84166;84186;D    TF
84189;84336;D    TF
84339;84339;D    TF
84367;84369;D    TF
84375;84377;D    TF
84387;84388;D    TF
84400;84999;D    TF
85116;85116;D    TF
85200;85269;D    TF
85293;85295;D    TF
85298;85299;D    TF
85302;85303;D    TF
85305;85306;D    TF
85380;85389;D    TF
85399;85399;D    TF
85430;85776;D    TF
85778;89999;D    TF

[Kuwer]

Kann man hier noch die Möglichkeit ergänzen Spalte 2 der jewiligen Postleitzahl zu zu ordnen?

Falls Du mich gemeint hast: Die Frage habe ich nicht verstanden.

Gruß Uwe

[DietmarD]

Hallo zusammen,

sorry ich denke das ich die Eingangsaufgabe nicht richtig gelesen hatte, und somit bringt mein Voerschlag rein gar nichts, außer das ich wieder was gelernt habe,
wer lesen kann ist klar im Vorteil. :16:
Ich gelobe Besserung :15: