Adresse getrennt aus einer Zelle erstellen

[snb]

UDF

Code:

Function F_snb(c00)
  For j = 1 To Len(c00)
    If (Asc(Mid(c00, j, 1)) - 48) \ 10 = 0 Then
      If c01 <> "" Then c01 = Left(c01, j + 1) & " " & Right(c00, Len(c00) - j + 1)
      If c01 = "" Then c01 = Left(c00, j - 1) & " " & Mid(c00, j, 5) & " " & Mid(c00, j + 5)
      j = j + 6
    End If
  Next

  F_snb = c01
End Function

[snb]

Alternative

[helwagemi]

Hallo, noch ein Vorschlag mit ein paar ausgeblendeten Spalten.
Gruß Helmut

[helwagemi]

Hallo, noch ein Vorschlag mit ein paar ausgeblendeten Spalten.
Gruß Helmut

Hallo, tut mir leid, die Tabelle funktioniert nur mit Libreoffice-Calc, da die Formeln reguläre Ausdrücke enthalten, mit denen Excel nicht umgehen kann - soviel ich weiß: Wollte den Beitrag löschen, aber das geht anscheinend nicht.
Gruß Helmut

[schauan]

Hallöchen,

die Tabelle funktioniert nur mit Libreoffice-Calc

habe zumindest erst mal den Thread in das Forum Sonstige MS- und Alternativprogramme ... geschoben.