Teile eines Textes ausgeben

Christian · 2019-07-20T15:53:27+00:00

Hallo, ich bitte um eure Hilfe. Habe in G1:G587 587 Internetseiten, die wie alle Internetseiten "/" beinhalten. Ich suche einmal eine Formel die den Text zwischen dem letzten und dem vorletzten / ausgibt und eine die den Teil zwischen dem vorletzten und dem drittletzten / ausgibt. Habt ihr so eine zur Hand und gebt sie mir? Danke Christian

…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 :-?

Meine alternative UDF mit Simulation von xl-typischer Unterscheidung von …x;) und …x) bei Fktt enthält einen Denkfehler, weshalb ich sie nochmals überarbeitet habe:

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

Jetzt fktioniert sie auch mit Angabe des (hier) 3.Arguments richtig.
Gruß, Luc :-?

Forumthread: Teile eines Textes ausgeben

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Teile eines Textes ausgeben

Forumthread: Teile eines Textes ausgeben

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread