OT: (für Interessenten)
22.07.2019 14:24:47
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 :-?