Werte in einer Spalte in Excel trennen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo WF,
... aus der entnahm ich ein Formelangebot für den letzten und vorletzten Block. Darauf bezog ich mich bisher.

Wenn jedoch nur der vorletzte Block gesucht sein sollte , kann man das z.B. wie von mir und ergänzend von Lupo hier: https://www.herber.de/forum/archiv/1580to1584/t1583769.htm
Dann würde ich diesmal hier die Formel von Lupo nutzen und anpassen:
=GLÄTTEN(TEIL(WECHSELN($A1;" ";WIEDERHOLEN(" ";99));(LÄNGE(GLÄTTEN(A1))-LÄNGE(WECHSELN(GLÄTTEN(A1);" ";"")))*99-98;99))
Die könnte noch kürzer ausfallen, wenn vorausgesetzt wird, dass keine Leerzeichen am Text in A1 an gehangen sind:
=GLÄTTEN(TEIL(WECHSELN($A1;" ";WIEDERHOLEN(" ";99));(LÄNGE(A1)-LÄNGE(WECHSELN(A1;" ";"")))*99-98;99))
Gruß Werner
.. , - ...

…die Fml überschaubar kurz, Tommi,
egal wieviel reine (auch leerzeichen-getrennte) Texte da noch zwischengeschoben sind. Diese Texte dürfen nur ihrerseits nicht wieder Ziffern enthalten, die irrelevant sein sollen. D.h., es muss letztlich die ursprünglich von dir gezeigte Struktur herauskommen können. Wären das dann immer konstant 3 (leerzeichen-getrennte) ZiffernBlöcke, käme folgende (plurale) MatrixFml (über 2 Zellen) zum Einsatz:
{=Splint(MaskOn(A1;"num");;2;3)}
Ist das nicht der Fall und die Anzahl der ZiffernBlöcke kann mal 2, 3 oder mehr betragen, aber es sollen stets die beiden letzten ausgewählt wdn, sähe die MatrixFml so aus:
{=Splint(MaskOn(A1;"num");;CountOn(MaskOn(A1;"num");" "))}
Die Pgmm der verwendeten UDFs sind hier zu finden:
CountOn (Vs1.1) https://www.herber.de/forum/archiv/732to736/732035_Zaehlennwenn_mit_Zahlenkombinationen.html#734566
MaskOn (Vs2.1) https://www.herber.de/cgi-bin/callthread.pl?index=1344962#1345181
Splint (Vs1.1) https://www.herber.de/forum/archiv/864to868/865813_Texte_per_VBA_in_einzelne_Teile_aufteilen.html#865877
Für die 2.Fml-Variante wird allerdings Vs1.2 von Splint benötigt:


Rem Bildet aus Einzeltexten Teiltextfelder vonbisPosit (lfdElemNr) im Text
'   m.d.Möglichk, nur d.Endposition durch d.real letzte Element zu ersetzen.
'   Vs1.2a -LSr.CyWorXxl -CDate:20070427 -1Pub:h20070428(1.1) -LUpd:20080109n
Function Splint(Text, Optional Trenner As String = " ", Optional ByVal AnfPos As Integer, _
Optional ByVal EndPos As Integer, Optional ByVal LetztEnd As Boolean)
Dim i As Long, j As Long, l As Long, m As Long, TxtVkt, x, y() As String
If AnfPos = 0 And EndPos = 0 Then Splint = Split(Text, Trenner): Exit Function
If InStr(Text, Trenner) = 0 Then
Else: TxtVkt = Split(Text, Trenner): m = UBound(TxtVkt) + 1 - LBound(TxtVkt)
End If
If AnfPos = 0 Then AnfPos = 1
If EndPos = 0 Then EndPos = m
l = EndPos - AnfPos: If l = AnfPos And i  l) Then y(l) = x: Exit For
Next x
Splint = y
End Function

Feedback nicht unerwünscht! Gruß, Luc :-?
Besser informiert mit …

Beliebteste Forumthreads (12 Monate)

Werte in einer Spalte in Excel trennen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte in einer Spalte in Excel trennen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread