Werte in einer Spalte in Excel trennen

Tommi · 2017-10-05T12:21:55+00:00

Hallo zusammen, ich habe in einer Spalte (Textformat) 3 Zahlen (jede Zahl 5-15 Ziffern lang) z.B in Spalte A: 1234 847575766 193495959 124324 24353 2352345234525 235 2523523523523 525235235 Gibt es eine Möglichkeit direkt in Excel die letzten beiden Zahlen 'sauber' rauszutrennen? Also dass in Spalte B die mittlere Zahl und in Spalte C die rechte Zahl steht. Da die SPACES aber an variablen Stellen stehen, komme ich mit rechts(A1;Wert) oder so ja nicht wirklich weiter LG, Tommi

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 …

Werte in einer Spalte in Excel trennen

Forumthread: Werte in einer Spalte in Excel trennen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial