5-Stellige Zahl(PLZ) auslesen

[atilla]

Hallo,

unten stehender Code listet die gefundenen PLZ in gleicher Zeile in folge Spalten.

Code:

Sub PlZ_suchen()
 Dim i As Long
 Dim j As Long
 Dim k As Long
 Dim lngZ As Long
 Dim vntText
 
 lngZ = Cells(Rows.Count, 1).End(xlUp).Row
 Columns("B:AA").Clear
 
 For i = 1 To lngZ
   k = 2
   vntText = Split(Replace(Cells(i, 1), vbLf, " "))
   For j = LBound(vntText) To UBound(vntText)
     If IsNumeric((vntText(j))) And Len(vntText(j)) = 5 Then
       Cells(i, k) = vntText(j)
       k = k + 1
     End If
   Next j
 Next i

End Sub

[matzerg]

hi nochmal,

vielen Dank für eure zahlreichen antworten und sorry für den falschen start und dem fehlenden engagement meinterseits.
Um es kurz zu machen:

Ich habe jetzt die von Bosko erwähnte formel genommen:

Code:

=TEIL(A2;AGGREGAT(15;6;SPALTE(1:1)/(TEIL(ZEICHEN(10)&A2;SPALTE(1:1);1)=ZEICHEN(10))/(ISTZAHL(TEIL(A2;SPALTE(1:1);5)*1));1);5)

Größtensteils funktioniert es mit dieser.
Für meine Beispiele werde ich mir etwas anderes überlegen.

Vielen Dank für eure Mühe und vorallem Geduld.

lg
matze

[matzerg]

Hallo,

unten stehender Code listet die gefundenen PLZ in gleicher Zeile in folge Spalten.

Code:

Sub PlZ_suchen()
 Dim i As Long
 Dim j As Long
 Dim k As Long
 Dim lngZ As Long
 Dim vntText
 
 lngZ = Cells(Rows.Count, 1).End(xlUp).Row
 Columns("B:AA").Clear
 
 For i = 1 To lngZ
   k = 2
   vntText = Split(Replace(Cells(i, 1), vbLf, " "))
   For j = LBound(vntText) To UBound(vntText)
     If IsNumeric((vntText(j))) And Len(vntText(j)) = 5 Then
       Cells(i, k) = vntText(j)
       k = k + 1
     End If
   Next j
 Next i

End Sub

Du bist mein Retter,

Es klappt alles wie erfhofft. Besten Danke !!!

:18:

einige kleine fehler sind drin, aber die masse ist abgedeckt. passt super !