00202
Nicht registrierter Gast
Hallo ws-53,
Danke, dass du
PQ noch ins Spiel bringst. Nachfolgend noch eine Variante mit
REGEX (auch mehrere):
[attachment=51339]
Folgende(r) 1 Nutzer sagt Danke an Gast für diesen Beitrag:1 Nutzer sagt Danke an Gast für diesen Beitrag 28
• ws-53
Registriert seit: 29.09.2015
Version(en): 2030,5
Code:
Function F_snb(c00)
sn = Split(Replace(Replace(c00, ".", " "), ":", " "))
For j = 2 To UBound(sn)
sp = Array(Val(sn(j)), StrReverse(Val(StrReverse(sn(j)))))
If Len(sp(0)) = 5 Or Len(sp(1)) = 5 Then Exit For
Next
F_snb = IIf(Len(sp(0)) = 5, sp(0), --sp(1))
End Function
In B2:
00202
Nicht registrierter Gast
(25.03.2024, 18:09)snb schrieb: In B2: