Zahlen und Buchstaben trennen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…noch nicht gemeldet, Michael,
obwohl Lupo längst eine avantgardistische Lösung eingestellt hatte. Um die verwenden zu können, musst du wohl Xl-Abonnent sein… ;-]
Es ist mir gelungen, auch für Nicht-Abonnenten eine Lösung auf Basis einiger UDFs und Standard-Xl-Fktt zu finden, die dein WunschErgebnis für die BspDaten erreicht. Dabei kämen 2 Varianten infrage, die beide insgesamt kürzer (201 bzw 213) sind als Lupos FmlBandwurm (274) und was entscheidender ist, keine 20 Fktsaufrufe enthalten, sondern insgesamt nur 13.
Variante1 - singulare MatrixFml in einer Zelle von ausgelagerter (wg MehrfachVerwendung) kurzer benannter Fml unterstützt:
D2[:D37]: {=WENN(ISTZAHL(B2);B2;TxEval(WIEDERHOLEN("trim(substitute(";ANZAHL2(Maske)*2)&ADRESSE(ZEILE(B2);2;4)&VJoin(","""&Maske&""","" § ""))")&VJoin(",""§"","""&Maske&""",1))")))}
Maske: =VSplit(MaskOn($B2;"num";"/.-"))
Variante2: Statt der UDF TxEval kann auch die alte XLM-Fkt AUSWERTEN benutzt wdn, was aber eine 2.Namensdefinition erforderlich macht. Außerdem wäre dann auf jeden Fall die Speicherung der Datei als .xlsm/b erforderlich, während bei Variante1 eine Speicherung als .xlsx möglich wäre, wenn die Pgmm der UDFs nur in der Personal.xlsm oder einem aktiven AddIn (.xlam) enthalten sind.
D2: =WENN(ISTZAHL(B2);B2;Korrekt)
Korrekt: =AUSWERTEN(WIEDERHOLEN("glätten(wechseln(";ANZAHL2(Maske)*2)&ADRESSE(ZEILE(B2);2;4)&VJoin(";"""&Maske&""";"" § ""))")&VJoin(";""§"";"""&Maske&""";1))"))
In B37 habe ich den Wert XA222YZ2s hinzugefügt, um zu testen, ob Fehler durch das nachgestellte Auftreten einer in einer vorstehenden Zahl verwendeten Ziffer entstehen. Diese Sicherung hat die Fml zwar verlängert, sie ist aber ohnehin nur ein Konstruktor, der einen FmlText nach Bedarf zusammenstellt, der dann mittels TxEval bzw AUSWERTEN berechnet wird. Durch separate Notation der Argumente von TxEval bzw AUSWERTEN als Fml, kann man feststellen, wie dieser aussieht. Die Verdoppelung der WECHSELN-Aufrufe (substitute) war erforderlich, weil alle Zahlen zuerst durch § und danach erst einzeln die § durch die per MaskOn ermittelten ZahlWerte (inkl /.-) ersetzt wdn. Das war notwendig, um zu verhindern, dass die 2.Zahl auf B37 (2) Ziffern in der 1.Zahl (222) ersetzt und so in dieser LeerZeichen eingefügt wdn. Das fktioniert auch mit mehr ZahlenStellen und auch mehr als 2 Zahlen in der ModellBezeichnung. Allerdings ist zu beachten, dass das TextArgument einer Evaluierungsfkt keine unbegrenzte Gesamtlänge haben darf (idR max 256 Zeichen). Für die Bspp hat's aber ausgereicht.
UDF-Links:
MaskOn (Vs2.1) https://www.herber.de/forum/archiv/1344to1348/1344962_Initialen_bei_Doppelnamen.html#1345181
TxEval (Vs1.0) https://www.herber.de/forum/archiv/1476to1480/1476498_Projektplan.html#1477400
VJoin (Vs1.4) & VSplit (Vs1.1) https://www.herber.de/bbs/user/99024.xlsm (DownLoad BspDatei m.UDFs)
Gruß, Luc :-?
Der beste Beweis für intelligentes Leben im Universum ist, dass noch niemand versucht hat, Kontakt mit uns aufzunehmen. H.Lesch, 2018, Sonneberg
Deshalb Intelligenz steigern mit

Function SpaceZwZifferUndAlfa(Wert) Dim i As Long Dim txt2 As String Dim T1 As String, T2 As String If VarType(Wert) = vbString Then txt2 = Left(Wert, 1) For i = 2 To Len(Wert) T1 = Mid(Wert, i - 1, 1) T2 = Mid(Wert, i, 1) If T1 Like "[0-9]" And Asc(T2) > Asc("A") Or _ Asc(T1) > Asc("A") And T2 Like "[0-9]" _ Then T2 = " " & T2 SpaceZwZifferUndAlfa = SpaceZwZifferUndAlfa & T2 Next Else SpaceZwZifferUndAlfa = Wert End If End Function

Function SpaceZwZifferUndAlfa(Wert) Dim i As Long Dim T1 As String, T2 As String If VarType(Wert) = vbString Then SpaceZwZifferUndAlfa = Left(Wert, 1) For i = 2 To Len(Wert) T1 = Mid(Wert, i - 1, 1) T2 = Mid(Wert, i, 1) If T1 Like "[0-9]" And Asc(T2) > Asc("A") Or _ Asc(T1) > Asc("A") And T2 Like "[0-9]" _ Then T2 = " " & T2 SpaceZwZifferUndAlfa = SpaceZwZifferUndAlfa & T2 Next Else SpaceZwZifferUndAlfa = Wert End If End Function

…und dafür die TextAnfänge und -Längen per FINDEN (bzw VLike) ermittelt, Lupo,
aber dadurch wurde die Fml länger als Deine und außerdem müsste man FINDEN ja staffeln, statt nur einen SuchBegriffs(ko)vektor zu verwenden, sonst wird das letzte L im TORELLI-Modell schon in TORELLI gefunden. Mit Ziffern/Zahlen wäre es ähnlich, weshalb ich schließlich in 1.Schritt ein einzelnes ErsatzZeichen verwendet habe. Die erforderliche Fml-Struktur ergibt sich aber erst durch den gezielten Zusammenbau der EinzelKomponenten und dann ist das Text, der einer Auswertung oder Nachbehandlung mit separatem Aufruf bedarf.
Ich weiß jetzt nicht, worauf sich Dein mehrfach verwendbar konkret bezieht, aber meine Fml kann alle derartigen Stellen in einem Text nach Wunsch behandeln.
Gruß + schöWE, Luc :-?

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahlen und Buchstaben trennen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread