Teile eines Textes ausgeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…hättest gestalten können, onur (& Christian),
dass nur eine UDF benötigt worden wäre, zB so:

Function TP(Txt As String, Optional ByVal Pos As Long = 1)
Dim lv As Long, rh As Long, tx$()
tx = Split(Txt, "/")
lv = LBound(tx) - 1 + Pos: rh = UBound(tx) + Pos
If Pos > 0 Then TP = tx(lv) Else TP = tx(rh)
End Function

Hier kann auch die gewünschte TextPosition vorgegeben wdn. Somit wären folgd Fmln möglich:
Für beliebige Positionen → J1[:K1]:=TP($G1;1-SPALTE(B1))
Hier aber ausreichend → J1[:K1]:=TP($G1;-SPALTE(A1))
Man kann also die Position ≥1 (von links/vorn) oder ≤0 (rechts/hinten gezählt) angeben.
OT: Bei der Gelegenheit habe ich endlich auch entdeckt, wie man den Xl-FktsEffekt des Unterschieds zwischen einem gänzlich fehlenden letzten Argument und einem nur durch ein ; angedeuteten in einer UDF nachgestalten kann [wie bspw bei WENN(A1="";1;) zu WENN(A1="";1)]:

Function TxPos(Txt As String, ParamArray Pos())
Dim lv As Long, rh As Long, ps As Long, tx$()
If UBound(Pos)  0 Then TxPos = tx(lv) Else TxPos = tx(rh)
End Function

Ggf müsste man noch abfangen, dass kein Array als 1.Komponente des ParamArrays angegeben wird.
Die diesen Effekt nutzenden Fmln sähen hierfür dann so aus: 1.Position → J2:=TxPos($G1) — letzte Position → K2:=TxPos($G1;)
Ansonsten hätte ich ja für bereits im Archiv enthaltene UDFs plädiert, die bereits Positionsangaben zulassen. Davon gibt's mehrere, u.a. meine, die zu folgd Fmln führen …
&bullet; Mit 2 UDFs ohne Splitten: L1[:M1]:=PickOn($G1;CountOn($G1;"/")-SPALTE(A1)+1;"/")
&bullet; Länger m.nur 1 UDF: L2[:M2]:=PickOn($G1;LÄNGE($G1)-LÄNGE(WECHSELN($G1;"/";""))-SPALTE(A1)+1;"/")
&bullet; 2 UDFs m.Splitten in pluraler MatrixFml (über 2 Spalten):
L4:M4: {=INDEX(VSplit(G1;"/");CountOn(G1;"/")-SPALTE(A:B)+1)}
L5:M5: {=Splint(G1;"/";CountOn(G1;"/")-1;CountOn(G1;"/"))} Wobei hier das 4.Argument ggf fehlen darf:
L6:M6: {=Splint(G1;"/";CountOn(G1;"/")-1)}
UDF-ArchivLinks:
CountOn (Vs1.1) https://www.herber.de/forum/archiv/732to736/732035_Zaehlennwenn_mit_Zahlenkombinationen.html#734566
PickOn (Vs1.1) https://www.herber.de/forum/archiv/1140to1144/1141994_Teilstring_aus_String_entfernen.html#1142025
(Folgebeiträge m.Korrekturen beachten!)
Splint (Vs1.2) https://www.herber.de/forum/archiv/1584to1588/t1584372.htm#1584465
VSplit (Vs1.1) https://www.herber.de/bbs/user/99024.xlsm (BspDatei m.UDFs)
Morhn, Luc :-?

Rem Nachgestalt d.Xl-Effekts letzt Argument fehlt ganz ' oder zeigt nur LiTrenner am Bsp einer Text-Splittg ' Nur ggf exist 1.Element v.Arg3 wird benutzt u.darf ' seinerseits kein Array sein (wird nicht überprüft) ' Anm: xlFktAssi lässt option ; am FmlEnde gern weg! ' Vs1.1 -LSr -cd:20190722 -1pub:20190722h -lupd:20190722t Function TxPos(Text$, ByVal TrennZ$, ParamArray TPos()) Dim lv As Long, rh As Long, pos As Long, txt() As String On Error Resume Next If IsMissing(TrennZ) Then TrennZ = " " If IsError(TPos(0)) Then pos = Abs(UBound(TPos)) Else: pos = CLng(TPos(0)) End If txt = Split(Text, TrennZ) lv = LBound(txt) - 1 + pos: rh = UBound(txt) + pos If pos > 0 Then TxPos = txt(lv) Else TxPos = txt(rh) End Function

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Teile eines Textes ausgeben

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread