Registriert seit: 29.09.2015
Version(en): 2030,5
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
Registriert seit: 29.09.2015
Version(en): 2030,5
Alternative
Angehängte Dateien
__parsing_snb.xlsb (Größe: 15,08 KB / Downloads: 1)
Registriert seit: 27.09.2018
Version(en): 2013
18.10.2023, 18:36
(Dieser Beitrag wurde zuletzt bearbeitet: 18.10.2023, 18:38 von helwagemi .)
Hallo, noch ein Vorschlag mit ein paar ausgeblendeten Spalten.
Gruß Helmut
Angehängte Dateien
Stringbearbeitung_Adresse.xlsx (Größe: 7,24 KB / Downloads: 2)
Registriert seit: 27.09.2018
Version(en): 2013
(18.10.2023, 18:36) helwagemi schrieb: 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
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
Zitat: die Tabelle funktioniert nur mit Libreoffice-Calc
habe zumindest erst mal den Thread in das Forum Sonstige MS- und Alternativprogramme ... geschoben.
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)