Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Semikolon getrennte Werte mit Formel trennen
#1
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!
Antworten Top
#2
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.
Gruß
Peter
Antworten Top
#3
Hallo raphi.an

was gefällt dir an "Text in Spalten" denn nicht?
Gruß Conny :)
_______________________________________________________________

Die Summe der Intelligenz auf unserem Planeten ist konstant, aber die Bevölkerung wächst!
Antworten Top
#4
Hallo,

ABCDEFG
18888555444;12345678;87654321;ABC;DEF;10088885554441234567887654321ABCDEF100
Formeln der Tabelle
ZelleFormel
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
Antworten Top
#5
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'
 ABCDEF
18888555444;12345678;87654321;ABC;DEF;100     
28888555444;;87654321;ABC;DEF;101     
38888555444;12345678;;ABC;DEF;102     
48888555444;12345678;87654321;;DEF;103     
58888555444;12345678;87654321;ABC;;104     
6      
7Text in Spalten     
888885554441234567887654321ABCDEF100
98888555444 87654321ABCDEF101
10888855544412345678 ABCDEF102
1188885554441234567887654321 DEF103
1288885554441234567887654321ABC 104
13      
14Text in Spalten, Aufeinanderfolgende Trennzeichen als ein Zeichen behandeln     
1588885554441234567887654321ABCDEF100
16888855544487654321ABCDEF101 
17888855544412345678ABCDEF102 
1888885554441234567887654321DEF103 
1988885554441234567887654321ABC104 
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste