Textteil zwischen zwei Zeichen löschen

Joe · 2017-11-20T17:58:08+00:00

Hallo zusammen, ich hätte folgende Problemstellung und würde mich freuen, wenn ihr mich hierbei unterstützen könntet: Im Excel habe ich die Zeichenfolgen 00001|"yk,ab,ac,,"|"qwert,x2"| 00002|"bz,hz,,,"|"zuio,bz"|Stein| ... Nun würde ich gerne die Zeichen ,ab,ac,, bzw. ,hz,,, aus den Feldern löschen. Da in der Datei hunderte von Datensätzen sind fällt eine manuelle Bereinigung weg. Über eure Hilfe würde ich mich sehr freuen. LG Joe

Morrn, Lupo & Joe;
Deine Fmln sind bisher die einzigen, die das von Matti vermutete Ergebnis liefern, aber doch ziemlich lang… ;-]
Damit erhält man also ff Ergebnisse für die beiden Bspp:
00001|"yk"|"qwert,x2"|
00002|"bz"|"zuio,bz"|Stein|
Ich hätte hier allerdings weniger an WECHSELN als an ERSETZEN gedacht, zB:
=ERSETZEN(A1;SUCHEN(",";A1);SUCHEN("""";A1;SUCHEN(",";A1))-SUCHEN(",";A1);"")
Diese Fml wäre schon mal nur ca halb so lang. Man könnte aber auch definierte Namen für gleiche TeilFmln oder UDFs in einer Fml verwenden, hier mal Letzteres anstelle von Ersterem für die obige Fml:
=ERSETZEN(A1;Rmd(SUCHEN(",";A1));SUCHEN("""";A1;Rmd())-Rmd();"")
Die UDF Rmd (s.unten!) ist eine sog MerkFkt, deren Aufgabe darin besteht, ein Teilergebnis zu merken und in der gleichen Fml an der gewünschten Stelle wieder anzuwenden. Also im Prinzip das, was auch mit einem definierten Namen erreichbar wäre. Rmd „merkt“ sich aber nicht nur Werte, sondern, falls möglich, auch Objekte, also analog INDEX ggf ZellBereiche. Ich habe sie aber auch in einer anderen Fml dieser Art, die aber deutlich länger ist und eine weitere UDF zur Ermittlung des 2.-3.Arguments von ERSETZEN benutzt, angewendet:
=ERSETZEN(A1; Rmd(VLike(A1;"*|""?,*,*,*,*""|*";-1)+4);VLike(A1;"*|""?,*,*,*,*""|*";1)-Rmd()-1;"")
Mit der UDF VLike kann genau nach der in den Bspp zu erkennenden Struktur des 2.Blockes gefragt wdn. Existiert diese nicht, kann auch nichts ersetzt wdn und ERSETZEN liefert hier wg des dann negativen 3.Arguments #WERT!. In der LangForm (ohne Rmd) sähe die Fml dann so aus:
=ERSETZEN(A1;VLike(A1;"*|""?,*,*,*,*""|*";-1)+4;VLike(A1;"*|""?,*,*,*,*""|*";1)-VLike(A1; "*|""?,*,*,*,*""|*";-1)-5;"")
Das wäre dann schon meine längste, aber immer noch kürzer als Lupos kürzeste. Meine kürzeste wäre übrigens eine mit einer anderen, recht einfachen, alten UDF, die sich aber (deshalb) aufhängen kann, wenn die TextStruktur nicht passt (also PickOn nur anwenden, wenn alle Texte passen!):
=WECHSELN(PickOn(A1;"1,5,6";",");",";"";1)
Mit dem 2.Argument der UDF wird vorgegeben, welche TextTeile, die sich über die Kommata definieren, ausgewählt wdn sollen. D.h., im 2.Block müssen immer 4 Kommata vorhanden sein und ab dem 3.Block darf nur noch ein Komma auftreten! Aber auch Lupos Fmln haben Probleme, wenn die TextStruktur nicht stimmt. Die lange liefert uU ein verstümmeltes Ergebnis, die kurze #WERT!
Ungefähr so lang wie die 1. ERSETZEN-Fml mit Rmd wäre die folgd Fml auf WECHSELN-Basis mit der den OriginalText splittenden UDF Splint, mit der auch gleichzeitig eine Auswahl aus den erzeugten TextTeilen getroffen wdn kann:
=WECHSELN(A1; Splint(A1;"|";2;2);LINKS(Splint(A1;"|";2;2);3)&"""")
Hier wird der komplette 2.Block durch seinen 1.Begriff ersetzt. Man kann hier aber auch zusätzlich die bereits bekannte UDF VLike mit der Xl-Fkt TEIL verwenden, was nachfolgd Fml ergäbe:
=WECHSELN(A1;Splint(A1;"|";2;2);TEIL(A1;VLike(A1;"*|""?,*,*,*,*""|*";-1)+1;3)&"""")
WECHSELN-Anwendung ist auch für eine weitere Fml vorgesehen, die ebenfalls eine UDF (MaskOn) verwendet, die aber ähnlich wie die ERSETZEN-Fmln den überflüssigen TextTeil auf der Basis von (per Fml) zu setzenden Markierungen gänzlich entfernt:
=WECHSELN(MaskOn(WECHSELN(WECHSELN(A1;",";"´";4);",";"`";1);"mrk`´";1);" """;"""")
Das ist für meinen Geschmack allerdings etwas zuviel gewechselt, was daran liegt, dass die bereits vorhandenen Markierungen nicht für diese Operation taugen.
So, damit wäre ich nun fast durch. Sicher gibt's noch mehr Möglichkeiten, mit und ohne UDFs (mir fallen auch nicht immer gleich die am besten passenden UDFs ein, dafür sind's zuviele), bei großen Datenmengen wäre aber eine spezielle SubProzedur sinnvoll (weil schneller), besonders dann, wenn diese Arbeit öfter mal anfällt. Aber nichtsdestotrotz habe ich doch noch einen speziellen Fml-Exoten, den ich wenigstens vorstellen will, zumal er nicht mal die längste Fml benötigt und außerdem eine INDEX-Anwendung zeigt, die die Wenigsten in all meinen Forumsjahren für möglich hielten. Einige kennen das „Phänomen“ aber inzwischen. INDEX, zu dessen (speziellen) Möglichkeiten ich demnächst eine Präsentation veröffentlichen will, liefert normalerweise nicht mehrere Werte so, dass sie in nur einer Zelle vereinigt wdn können. Mit einem speziellen Fml-Zusatz und der Auswahl von 2 Zellen für die Fml, also als von mir so klassifizierte duale MatrixFml, ist es aber doch möglich:
{=WAHL({1.2};""; WECHSELN(VJoin(INDEX(VSplit(A1;",");{1.5.6})&T({1.5.6});",");",";"";1)) }
Diese Fml, die die UDFs VSplit (splitten auf Komma) und VJoin (wieder verbinden mit Komma) benutzt, benötigt 2 Zellen, deren linke durch zusätzliche Anwendung der Xl-Fkt WAHL einen LeerText erhält. Allerdings muss auch noch das 1.Komma nachträglich per WECHSELN entfernt wdn.
Einfach mal alle ausprobieren! Die Links zu den Pgmm (ggf zusätzliche Hinweise auf weitere UDFs und Enumerationen beachten!) liegen in den Fmln unter den unterstrichenen Namen (maussensitiv!).

Rem Merkt Argument u.gibt stets zuletzt angegebenes zurück
'   (remind); jetzt auch ZellBezüge (Objekte)!
'   Vs1.1 -LSr:CyWorXxl cd:201202__ -fpub:20171121 -lupd:20170902n
Function Rmd(Optional Ausdruck)
Static Vorwert As Variant
If Not IsMissing(Ausdruck) Then
If TypeName(Ausdruck) = "Range" Then
Set Vorwert = Ausdruck
Else: Vorwert = Ausdruck
End If
End If
If TypeName(Vorwert) = "Range" Then
Set Rmd = Vorwert
Else: Rmd = Vorwert
End If
End Function

Feedback nicht unerwünscht! Gruß, Luc :-?
„Die Intelligenzmenge ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu!“ Auch deshalb informieren mit …

Hallo Luc, ;)
erst mal vielen Dank für die schöne Formulierung, dass aus singulären Sprach- und Excel-Profis noch keine fehlerfreie Dokumentation entstehen kann; hat mir gut gefallen! Das ewige Problem der Interdisziplinarität.
_________________________________________________________________________________________
Hier meine Performance-Überprüfung mit 500.000 Formeln zum Betreff:
A1[:A500000]: =WENNFEHLER(
SVERWEIS(ZEICHEN(REST(ZEILE();10)+65);F$1:G$9;2;0);
SVERWEIS(ZEICHEN(REST(ZEILE();10)+65);F$1:G$9;2;1)) benötigt 13 Sekunden ("sprachgezählt")
B1[:B500000]: =WENN(ISTFEHLER(
SVERWEIS(ZEICHEN(REST(ZEILE();10)+65);F$1:G$9;2;0));
SVERWEIS(ZEICHEN(REST(ZEILE();10)+65);F$1:G$9;2;1);
SVERWEIS(ZEICHEN(REST(ZEILE();10)+65);F$1:G$9;2;0)) benötigt 20 Sekunden ("sprachgezählt")
Versuchsergebnis:
Es ergibt sich ein zeitliches Berechnungsverhältnis von 2:3, genau wie die Anzahl enthaltener SVERWEISe, trotz der enthaltenen Wiederholung in der zweiten Formel (kursiver Teil, in beiden Formeln dargestellt). Es passt zur Gegenbehauptung:
"Excel erkennt gleiche Ausdrücke innerhalb einer Formel nicht!",
und als evtl. Störfaktor sind unterschiedliche Leistungen von ISTFEHLER zu WENNFEHLER nicht anzunehmen. Also:
"Es werden zumindest nicht in jedem Falle gleiche Ausdrücke in Excelformeln vorab oder on-the-fly ermittelt".
Versuchskritik: Aber vielleicht reicht ja ein Test bzw. ein Testaufbau noch nicht aus?
Versuchsanmerkung 1: Surface Pro 4 m3, 4 GB, 128 GB SSD, XL2010
Versuchsanmerkung 2: Die jeweils andere der beiden Formelspalten A und C wurde natürlich gelöscht, obwohl sie mangels Berührung des Abhängigkeitsbaums nicht erneut gerechnet worden wäre.
Versuchsanmerkung 3: mit Daten in F1:G9:
A 10
B 9
C 8
D 7
F 6
G 5
H 4
I 3
J 2

verwendete Formeln
Zelle	Formel	Bereich	N/A
B13:B14	=WECHSELN(WECHSELN(WECHSELN(A13;"ab";"");"Ac";"");"hz";"")

Textteil zwischen zwei Zeichen löschen

Forumthread: Textteil zwischen zwei Zeichen löschen

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Textteile zwischen zwei Zeichen in Excel löschen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

	A	B
13	00001\|"yk,ab,ac,,"\|"qwert,x2"\|	00001\|"yk,,ac,,"\|"qwert,x2"\|
14	00002\|"bz,hz,,,"\|"zuio,bz"\|Stein\|	00002\|"bz,,,,"\|"zuio,bz"\|Stein\|

Textteil zwischen zwei Zeichen löschen

Forumthread: Textteil zwischen zwei Zeichen löschen

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Textteile zwischen zwei Zeichen in Excel löschen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread