Clever-Excel-Forum

Seiten: 1 2 3

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

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

(24.02.2017, 00:10)atilla schrieb: [ -> ]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 !

Seiten: 1 2 3

atilla

matzerg

matzerg