Inhalt trennen rückwärts

Forumthread: Inhalt trennen rückwärts

19.09.2024 08:38:11

Simon Baumbach

Hallo...
Habe diese z.B. diese Zahlenfolge:
1, 2, 3, 4, 8, 9, 10, 11, 12
kann auch länger werden..
Brauche aber für eine Auswertung immer nur die letzten 4

Die Zahlenfolge steht in B3 und dann sollte in H3 die 9 stehen, J3 die 10, K3 die 11 und in L3 die 12...

Finde keine Formel die die macht.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Inhalt trennen rückwärts

19.09.2024 08:51:44

Fennek

Hallo,

ein Ansatz mit VBA für die genannte Zelle:


Sub T_1()

Dim Ar



Ar = Split(Cells(3, 2), ",")



For i = UBound(Ar) - 3 To UBound(Ar)

    Cells(3, 8 + i - UBound(Ar) + 3) = Ar(i)

Next i

End Sub

mfg

Mit Excel 365 oder xlWeb

19.09.2024 09:04:20

lupo1

H3#: =--TEXTTEILEN(TEXTNACH(B3;" ";ANZAHL2(TEXTTEILEN(B3;" "))-4);", ")

AW: Inhalt trennen rückwärts

19.09.2024 09:38:21

Yal

Hallo Simon,

wie Lupo es genau sagt, werden in xl 2016 einige nutzvolle Funktionen vermisst. Ein Aufstieg auf eine aktuelle Version kann manchmal sinnvoll sein.

Ansonsten muss man in xl2016 sich mit User Defined Function begnügen: ein Stück VBA-Code, der wie eine Formel im Excel-Blatt verwendet wird.

- Start VBA-Editor mit Alt+F11
- Menü "Einfügen", "Modul"
- im Codepane des Moduls, Code unten einfügen
- zurück auf das Excelblatt
- in H3 die Formel
=SPLITTER(B3;",";-2)
eingeben.
(-2 bedeutet, dass der Start an 2ter Stelle vom Ende kommend steht)

Code:

Public Function Splitter(ByVal Target, Optional Trenner As String = ";", Optional Start As Integer = 1, Optional Länge As Integer = 999)

Dim i

Dim temp

Dim Erg

Dim Anfang, Ende



    If TypeOf Target Is Range Then Target = CStr(Target.Cells(1).Value)

    temp = Split(Target, Trenner)

    ReDim Preserve temp(1 To UBound(temp) + 1) 'leichter, wenn Array mit Index 1 anfangen, anstatt 0

    Anfang = IIf(Start  0, UBound(temp) + Start + 1, Start)

    Ende = WorksheetFunction.Min(UBound(temp), Länge + Anfang - 1)

    

    On Error Resume Next

    Erg = Array()

    For i = Anfang To Ende

        ReDim Preserve Erg(UBound(Erg) + 1)

        Erg(UBound(Erg)) = temp(i)

    Next

    Splitter = Erg

End Function

VG
Yal

AW: Inhalt trennen rückwärts

19.09.2024 09:41:35

UweD

Hallo

so?

Formel bis K3 nach rechts kopieren (und nach unten)

Arbeitsblatt mit dem Namen 'Tabelle1'
	B	C	D	E	F	G	H	I	J	K
3	1, 2, 3, 4, 8, 9, 10, 11, 12						9	10	11	12
4	1, 2, 3, 4, 8, 9						3	4	8	9
5	1, 2, 3, 4						1	2	3	4
6	1, 2, 3						#WERT!	1	2	3

Zelle	Formel
H3	=WECHSELN(GLÄTTEN(TEIL(WECHSELN($B3;" ";WIEDERHOLEN(" ";199));(SPALTE(A3)+LÄNGE($B3)-LÄNGE(WECHSELN($B3;",";""))-3)*199-198;199));",";"")

Fehler entweder noch abfangen, oder sicherstellen, dass mindestens 4 Werte vorhanden sind

LG UweD

AW: Inhalt trennen rückwärts

19.09.2024 11:20:55

GerdL

Hallo Simon!

Sub Unit()



    Dim x As Variant

    

    x = Split(Range("B3"), ",")

    Range("H3") = x(UBound(x) - 3)

    Range("J3:L3") = Array(x(UBound(x) - 2), x(UBound(x) - 1), x(UBound(x)))



End Sub

Gruß Gerd

AW: Inhalt trennen rückwärts

19.09.2024 11:26:14

daniel

Hi
warum überspringtst du die Spalte I?
Absicht oder Fehler?

ohne diese Lücke und mit Excel 365 wäre die Formel einfach:
H3: =--TEXTTEILEN(TEXTNACH(B3;", ";-4);", ")

in Excel 2016 gibt es diese schönen Textfunktionen noch nicht, aber kann zumindest das TEXTEILEN mit der Funktion XMLFILTER nachbauen.
funktioniert genauso, nur dass die Trennzeichen xml-Tags ("&ltxml-Tag&gt Dein Text &lt/xml-Tag&gt") in zwei Ebenen sein müssen, dass macht es etwas unübersichtlicher.
Außerdem hat Excel 2016 noch kein Autospill, dh man muss die Werte in jeder Zelle einzeln picken, aber das müsstest du aufgrund der Lücke sowieso.

H3:=INDEX(XMLFILTERN("&ltx&gt&lty&gt"&WECHSELN($B3;", ";"&lt/y&gt&lty&gt")&"&lt/y&gt&lt/x&gt";"//x/y");LÄNGE($B3)-LÄNGE(WECHSELN($B3;",";""))+2-4)

die Formel kannst du dann nach J3, K3 und L3 kopieren, dabei änderst du dann das letzte "-4" auf "-3", "-2" und "-1"
Gruß Daniel

http://www.excel-ticker.de/xmlfiltern-zum-aufteilen-von-text-verwenden/

Beliebteste Forumthreads (12 Monate)

Forumthread: Inhalt trennen rückwärts

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread