Textuntersuchung

Forumthread: Textuntersuchung

Textuntersuchung

12.04.2006 15:57:52

Stefan

Hallo zusammen,
für eine Datenkonvertierung muss ich Text auf das Vorkommen von Klammer ( und Klammer ) untersuchen. Wenn ( im Text nicht vorkommt, dann erscheint #WERT!, wenn ich die Funktionen FINDEN und SUCHEN anwende.
Da ich den Text entsprechend dem (Nicht-)Vorkommen von ( bzw. ) weiter behandeln muss, möchte ich eine Fallunterscheidung mit WENN herbeiführen. Zwischen den Klammern stehen ursprünglich nur Zahlenwerte. Wenn *keine* Klammern im ursprünglichen Datenformat vorhanden sind, dann soll das Ergebnis so aussehen:
||0| (| steht für Spaltenbegrenzung)
Wenn eine Klammer im ursprünglichen Datenformat vorhanden ist, dann soll das Ergebnis so aussehen:
||X| (| steht für Spaltenbegrenzung, X für die Zahl, die ursprünglich in der Klammer stand [Werte von 2 bis 9999 möglich])
Ich hoffe, es ist durch die Beschreibung klar geworden, was ich will.
Wie kann ich den ursprünglichen Text mit einem WAHR / FALSCH - Ergebnis auf eine Klammer ( hin untersuchen?
Danke für Hinweise.
Gruß,
Stefan

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textuntersuchung

12.04.2006 16:03:38

Ingo
AW: Textuntersuchung

12.04.2006 16:06:12

UweD
AW: Textuntersuchung

12.04.2006 16:11:24

UweD
AW: Textuntersuchung

12.04.2006 16:09:54

Remo
AW: Textuntersuchung

12.04.2006 18:54:37

Stefan

AW: Textuntersuchung

12.04.2006 16:03:38

Ingo

hallo stefan,
Es gibt die Funktion istfehler
Istfehler(DeineFunktion)
ergibt je nachden WAHR oder FALSCH
mfG
Ingo Christiansen

AW: Textuntersuchung

12.04.2006 16:06:12

UweD

Hallo
so?
Formeln nach unten kopieren

	A	B	C	D	E	F
1	Text mit (Klammern) usw.		1	(	1	)
2	Text ohne Klammern usw.		0	(	0	)
3	Text nur eine (Klammer		1	(	0	)
4	Oder so eine )		0	(	1	)

Formeln der Tabelle

C1 : =ZÄHLENWENN(A1;"*(*")
E1 : =ZÄHLENWENN(A1;"*)*")

Gruß UweD
(Rückmeldung wäre schön)

AW: Textuntersuchung

12.04.2006 16:11:24

UweD

Hallo
oder das hier?

	A	B
8	2	2
9	3	3
10	(2)	2

Formeln der Tabelle

B8 : =WECHSELN(WECHSELN(A8;")";"");"(";"")*1

Gruß UweD
(Rückmeldung wäre schön)

AW: Textuntersuchung

12.04.2006 16:09:54

Remo

Könnte auch funktionieren:


Sub Klammer()
If Range("A5").Find(what:="(", lookat:=xlPart) Is Nothing Then MsgBox "Klammer nicht vorhanden"
End Sub

AW: Textuntersuchung

12.04.2006 18:54:37

Stefan

Hallo an alle,
vielen Dank für Eure Hinweise. Von jedem etwas hat mich zur Lösung geführt.
Gruß,
Stefan

Beliebteste Forumthreads (12 Monate)

Forumthread: Textuntersuchung

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread