Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wortgruppen vergleichen

Forumthread: Wortgruppen vergleichen

Wortgruppen vergleichen
Elfe
Hallo,
ich habe folgende Wortgruppen AAA (xy), AAA (ab), AAA (sd) und möchte auf Knopfdruck daraus AAA (xy, ab, sd) machen.
Ich wähle in einer Userform Wortgruppen aus und diese werden dann alle hintereinander in eine Zelle geschrieben. Wenn mehrere ähnliche Wortgruppen vorkommen, sollen diese wie oben zusammengefasst werden, damit es übersichtlicher bleibt.
Zu Fuß bzw. für dieses Beispiel kein Problem.
Nun habe ich solche Konstellationen zu Hauf. Die Wörter und Wortgruppen sind unterschiedlich lang, und haben unterschiedlich viele Einträge, die zusammengehören.
Kann man dieses Prozedere dynamisch gestalten?
Danke!
Gruß Elfe
Anzeige
Im Prinzip ja, es kommt nur ganz darauf...
23.02.2010 17:21:07
Luc:-?
…wie du es tun willst, Elfe… ;-)
Da du ja sowohl in XL als auch in VBA gut bist, dürfte das doch eigentl kein Problem sein…!?
Wenn die Daten erst in eine Zelle geschrieben und dann nachbearbeitet wdn sollen, bietet sich eine darauf bezogene Fml in einer anderen Zelle an…
=WECHSELN(GLÄTTEN(LINKS(A1;SUCHEN("(";A1))&WECHSELN(WECHSELN(A1;
LINKS(A1;SUCHEN("(";A1));"");")";" "))&")";" ";", ")
Falls auch Texte ohne nachfolgd Klammern vorkommen können, liefert SUCHEN einen Fehler, der dann noch abgefangen wdn müsste.
Wenn die Daten erst nachbearbeitet und dann in eine Zelle geschrieben wdn sollen, bietet sich VBA (analog) an.
Gruß Luc :-?
Anzeige
Sehe gerade, besser trifft es die Fml...
23.02.2010 17:34:00
Luc:-?
=WECHSELN(GLÄTTEN(LINKS(A1;SUCHEN("(";A1))&WECHSELN(WECHSELN(A1;
LINKS(A1;SUCHEN("(";A1));"");")";", "))&")";",)";")")
Gruß Luc :-?
AW: Wortgruppen vergleichen
23.02.2010 17:35:50
xr8k2
Hallo Elfe,
hab mal eine kleine Function zusammengeschustert. Weiß nicht ob das dem entspricht was du suchst.
Es müssen immer ein Gesamtstring (gs) und die einzuordnende Wortgruppe (wg) an die Fkt. übergeben werden. Je nachdem ob ein derartiger "Wortgruppenoberbegriff" schon vorhanden ist wird entweder die angegebene Wortgruppe hinten an den Gesamtstring angehängt oder der Wortgruppeneintrag wird in den Gesamtstring entsprechend seiner Wortgruppe eingeordnet.

Function ZusammenFassung(wg As String, gs As String) as String
Dim ts As String
ts = Left(wg, InStr(1, wg, "("))
If InStr(1, gs, ts)  0 Then
ZusammenFassung = Left(gs, InStr(InStr(1, gs, ts), gs, ")") - 1) _
& ", " & Mid(wg, InStr(1, wg, "(") + 1, Len(wg) - InStr(1, wg, "(")) _
& Mid(gs, InStr(InStr(1, gs, ts), gs, ")") + 1)
Else
ZusammenFassung = gs & wg
End If
End Function
Gruß,
xr8k2
Anzeige
Wenn du dich mit udFktt beschäftigst,...
24.02.2010 20:06:24
Luc:-?
…xr8k2,
könntest du dir ja auch ein udF-System allgemeiner Lösungen schaffen wie es bspw hier (blaue Werte/Fmln) zum Einsatz kommt…
 CQCRCSCT
1AAA (ab) AAA (cd) AAA (ef) AAA (gh)FmlLänge
2AAA (ab, cd, ef, gh)122100%
3AAA (ab, cd, ef, gh)5848%
4CQ2:=WECHSELN(GLÄTTEN(LINKS(CQ1;SUCHEN("(";CQ1))&
5          WECHSELN(WECHSELN(CQ1;LINKS(CQ1;SUCHEN("(";CQ1));
6          "");")";", "))&")";",)";")")
7CQ3:=WECHSELN(PartOf(CQ1;;"(")&MaskOn(CQ1;"mrk()");") (";", ")

Gruß Luc :-?
Anzeige
Versteh´ ich nicht ...
25.02.2010 09:13:13
xr8k2
Luc,
was will der Künstler mir damit sagen?
;-)
Gruß,
xr8k2
War nur ein Tipp, falls du öfter udFktt...
25.02.2010 15:49:26
Luc:-?
…schreibst, xr8k2,
also weg von Insel-, hin zu allgemeinen Lösungen… ;-)
Ideenmaterial und Nutzeranregungen findet man in Foren zuhauf! Da hat man dann irgendwann schon (fast) alles parat und kann im Grunde genommen wie WF vorgehen → quasi Formellösungen anbieten (dann aber natürlich VBA-gestützt!)…
Gruß Luc :-?
Anzeige
AW: War nur ein Tipp, falls du öfter udFktt...
26.02.2010 08:19:22
xr8k2
Hey Luc,
da sind wir ja voll einer Meinung ... nur dass sich Elfe (der ursprüngliche Fragesteller ... welcher hier langsam irgenwie in Vergessenheit gerät :-) ) zumindest für mich auf einer ziemlich kleinen Insel befindet. Ich hatte mir die Function eigentlich auch nicht als UDF für eine Excelformel sondern lediglich als Hilfskonstrukt in einer VBA-Lösung (vielleicht angewendet in einer Schleife) vorgestellt, weil ja schon irgenwie von VBA und Userform die Rede war, glaub ich.
Aber was nun funktioniert bzw. wass nun passender ist ... vielleicht werden wir´s nie erfahren ;-)
Aber du hast natürlich Recht, je allgemeingültiger eine Lösung desto besser ... in diesem Sinne ...
Gruß,
xr8k2
Anzeige
Das freut mich,...
26.02.2010 16:54:00
Luc:-?
…xr8k2,
dass du auch so denkst, denn das ist ja eigentlich das Grundprinzip jeder Kalk-Software. Pgmierer sehen das ja meist etwas eingeschränkter im Sinne von PgmTeile Kapseln wie du das hier ja auch angedeutet hast… ;-)
Tja, und was die Elfen betrifft — die gibt's doch gar nicht! Das hätte uns warnen sollen… :->
Gruß+schöWE, Luc :-?
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige