Clever-Excel-Forum

Hallo,

ich lese einen 2D-Code aus welcher verschiedene Daten hat. Diese sind durch ein Semikolon getrennt.

Beispiel: 8888555444;12345678;87654321;ABC;DEF;100

Jetzt möchte ich eine Funktion haben, welche mir diese Werte in einzelne Zellen einfügt.
Über die Funktion "Text in Spalten" gelingt mir das zwar, aber leider nicht sonderlich schön.
Ab und zu kann es auch vorkommen, dass ein Feld nicht belegt ist, und 2 Semikolons aufeinander folgen.
Es sollte auch möglichst einfach zu handhaben sein, evtl. eine Formel.

Vielen Dank!

Hallo,

kopiere den folgenden Code in ein allgemeines Mpdul der Datei:

Code:
Public Function splitten(zelle, Optional Welche_Stelle As Integer = 1, Optional Trenner As String = " ")

Dim a As Variant

a = Split(zelle, Trenner)

splitten = a(Welche_Stelle - 1)

End Function

Wenn dein Wert in A1 steht dann folgende Formel in B1

=Splitten($A1;SPALTE(A1);";")

und einfach nach rechts kopieren.

Hallo raphi.an

was gefällt dir an "Text in Spalten" denn nicht?

Hallo,

	A	B	C	D	E	F	G
1	8888555444;12345678;87654321;ABC;DEF;100	8888555444	12345678	87654321	ABC	DEF	100

Formeln der Tabelle

Zelle	Formel
B1	=GLÄTTEN(TEIL(WECHSELN($A1;";";WIEDERHOLEN(" ";999));SPALTE(A1)*999-998;999))
C1	=GLÄTTEN(TEIL(WECHSELN($A1;";";WIEDERHOLEN(" ";999));SPALTE(B1)*999-998;999))
D1	=GLÄTTEN(TEIL(WECHSELN($A1;";";WIEDERHOLEN(" ";999));SPALTE(C1)*999-998;999))
E1	=GLÄTTEN(TEIL(WECHSELN($A1;";";WIEDERHOLEN(" ";999));SPALTE(D1)*999-998;999))
F1	=GLÄTTEN(TEIL(WECHSELN($A1;";";WIEDERHOLEN(" ";999));SPALTE(E1)*999-998;999))
G1	=GLÄTTEN(TEIL(WECHSELN($A1;";";WIEDERHOLEN(" ";999));SPALTE(F1)*999-998;999))

Siehe Einen zeichengetrennten String aufteilen (Variante)* (210)

Gruß Uwe

Hallo,

warum so kompliziert? Text in Spalten trennt die Terme so, dass sie auch richtig untereinander stehen, es sei denn man wählt "Aufeinanderfolgende Trennzeichen als ein Zeichen behandeln".

Arbeitsblatt mit dem Namen 'Tabelle3'
	A	B	C	D	E	F
1	8888555444;12345678;87654321;ABC;DEF;100
2	8888555444;;87654321;ABC;DEF;101
3	8888555444;12345678;;ABC;DEF;102
4	8888555444;12345678;87654321;;DEF;103
5	8888555444;12345678;87654321;ABC;;104
6
7	Text in Spalten
8	8888555444	12345678	87654321	ABC	DEF	100
9	8888555444		87654321	ABC	DEF	101
10	8888555444	12345678		ABC	DEF	102
11	8888555444	12345678	87654321		DEF	103
12	8888555444	12345678	87654321	ABC		104
13
14	Text in Spalten, Aufeinanderfolgende Trennzeichen als ein Zeichen behandeln
15	8888555444	12345678	87654321	ABC	DEF	100
16	8888555444	87654321	ABC	DEF	101
17	8888555444	12345678	ABC	DEF	102
18	8888555444	12345678	87654321	DEF	103
19	8888555444	12345678	87654321	ABC	104

raphi.an

Peter

coemm

Kuwer

BoskoBiati