Office: Doppelte Werte im String löschen

Hi Zusammen

Ich bin wiedermal auf eure Hilfe angewiesen *Smilie

Ich weiss, man findet zu dieser Frage viele Antworten im Internet. Leider hab ich trotzdem jetzt nach Stunden und jeglichen Beitragen, keine Lösung hinbekommen.

Und zwar habe ich in mehreren Spalten, Zellen, welche eine Verkettung an Zahlen drin haben. Bsp einer Zelle: 40/ 50 / 1 / 40 / 3 / 10 / 1 / 1

Kling eig. ganz simpel den String jetzt in der Zelle zu sortieren und die Doppelten zu löschen ^^ Aber ich kriege es echt nicht hin.

Im Anhang findet Ihr eine Demo-Datei mit einer weiteren kleinen Erklärung.

Ich danke euch viel Mal für die Hife!

Grüsse und schönen Abend

Lingus

:)

 

Vorschlag:

1. Zelleninhalt via Split in ArrayList
2. ArrayList mit entsprechender Methode sortieren (Achtung: vorher String -> Zahl)
3. ArrayList in Dictionary (durch Fehlerbehandlung die Doppler nicht aufnehmen)
4. Sortiertes Dictionary in Zelle zurückschreiben


@interessierteMappenNichtDownloader:
-es ist kein Code in der Mappe, aber Zusatzinfos

 

Hallo,

wo ist denn mein Code hingekommen, der die Doppelten aussortiert ?
Wieso ist der nicht in der Datei ?

Sollen die Helfer das jetzt nochmal machen ? Und warum sagst du das mit dem Sortieren nicht gleich ?

Repekt ... Arbeitsbeschaffung ... normalerweise sollte man dir gar nicht mehr helfen !

Egal ...
Code:

Sabina

 

vielleicht hättest du so fair sein können, auf Sabinas Lösung zu deiner ähnlichen Frage hinzuweisen:
https://www.ms-office-forum.net/foru...d.php?t=367403

Da nimmt man halt ein anderes Datenobjekt, das auch sortieren kann, und ist fertig:
Code:

Edit:
Doofer Anruf zwischendurch, da hat Sabina schon ausgeschlafen *wink.gif*

Egal, Code fertig, bleibt er auch stehen.

 

Das ist mir jetzt echt peinlich. Das war echt nicht meine Absicht hier zweimal die gleiche Frage eig zu stellen. Mein Programm ist für meine Verhältnisse echt Gross und ich hab die Übersicht bisschen verloren. Nun habe ich einige Baustellen und hab dabei völlig übersehen, dass ich schon mal eine Lösung von dir hatte Sabina. Tut mir wirklich leid und ich wollte euch nicht weiter stören. Jedoch steh ich echt noch in den Startlöchern was Excel VBA betrifft.

Deshalb unterlasse bitte so Aussagen Sabina. Das hilft mir rein Garnichts. Hilf mir einfach oder eben halt nicht. Aber direkt wieder den Teufel an die Wand mahlen und das schlechte in einem sehen. - Ich habe das schlicht und weg nach stundenlangem Probieren in der Nacht vergessen/übersehen.

Sorry dafür und danke euch viel Mal für die Hilfe.

 

Hallo,

Ganz schön vermessen, einer Frau vorschreiben zu wollen, was sie tun soll oder eben nicht. Recht viel Erfahrung scheinst du mit den Frauen nicht zu haben ... jede Frau würde dir darauf antworten ... "Was ich tue, oder lasse, ist noch immer meine Sache."
Aber du gibst ja selbst die Alternative vor ... oder eben halt nicht. I++

Sabina

 

Das hat doch rein garnichts mit deinem Geschlecht zu tun?

Aber entschuldige. Ich wollte dir wirklich nicht auf die Füsse treten oder so.

Belassen wir das einfach und ich danke dir wieder viel Mal für die Hilfe.

 

=TEXTVERKETTEN(" / ";;EINDEUTIG(SORTIEREN(WENNFEHLER(--GLÄTTEN(TEIL(WECHSELN(A1;" / ";WIEDERHOLEN(" ";299));ZEILE($1:$99)*299-298;299));""));;))

 

nice



@Sabine:
"Always look on the bright side of life"

:PfeifenderSmiley:

 

[off topic]
Meine Gebetsmühle:
Falls Excel endlich SPLIT() implementieren würde (wie in Google Sheets), wäre es ein "einfaches"
=TEXTJOIN(" / ";1;SORT(UNIQUE(TRANSPOSE(SPLIT(A1;" /")))))

 

Komisch, mein Excel kennt das schon seit der Version 2003, genauso wie Sort, Unique und Transpose mit beliebig vielen Elementen... *wink.gif*

 

#OFFTOPIC:
Hallo EarlFred,

hast du bei deiner UNIQUE (EINDEUTIG ?) Variante das Problem der Rückgabe gelöst, sodass man weitere Formeln, wie z.B. =ZÄHLENWENN(EINDEUTIG(...) direkt damit verketten kann ... und auch ein Ergebnis erhält, das nicht #WERT lautet ? *eek.gif*

Wenn du das nicht hier diskutieren willst, schreib mir eine PN ... würde ich mich wahnsinnig freuen. *wink.gif*

Sabina

 

Hallo RPP63,

möglicherweise kann noch das TRANSPOSE weg, falls UNIQUE die gleichen Argumente wie EINDEUTIG besitzt. Das Problem könnte sein, dass Google vorgelegt hat, MS dem aber nicht gefolgt ist. Das MS-EINDEUTIG kann auch nach Spalten vorgehen, über das 2. Argument.

Hallo EarlFred,

RPP63 meinte SPLIT(), nicht Split *wink.gif*

 

Hallo lupo

ich meinte auch nicht VBA.Split, falls du darauf anspielst. Ich meinte Funktionen, die als UDF nachgebaut und über ein AddIn eingebunden sind.

@Sabina

Du spielst hierauf an?
Du meinst die Limitation, dass die "Irgendwas"-Wenn(s)-Funktionen für den zu durchsuchenden Bereich einen Blattbereich erfordern und keine Wertarrays (wie auch immer die entstanden sind) verarbeiten können? Alle Funktionen, die auch Wertarrays verarbeiten können (das sind die meisten) kommen m. E. auch mit Rückgaben aus UDFs klar, zumindest habe ich hier noch keine Probleme gehabt. Und Gegenfrage: Können die Rückgaben der neu implementierten Funktionen denn von "Irgendwas"-wenn() ausgewertet werden?
Mehr, als Werte in das Blatt zu schreiben (die Ausnutzung der Lücke in der Evaluate-Methode lassen wir mal ungedacht) fällt mir da als "Lösung" nicht ein, wobei man diese Zwischenausgabe ja allzu oft nicht will.

 

Hallo EarlFred,

Du spielst hierauf an ? ... Ja !
(die Ausnutzung der Lücke in der Evaluate-Methode lassen wir mal ungedacht) ... warum sollten wir ??? *biggrin.gif*

Ich habe eine Teillösung erzielt ... in XVERWEIS ist es meist kein Problem.
Die Ausgabe-Range kann dabei meist ganz einfach erzeugt werden. wodurch auch ZÄHLENWENN ein Ergebnis errechnet.

Allerdings habe ich damit bei EINDEUTIG bisher kein Glück gehabt. Da die Eingabe-Range durch das Vereinzeln doch stark fragmentiert wird, arbeiten Formeln wie ZÄHLENWENN nicht mehr mit dem Ergebnis ... selbst nach einer Bearbeitung mit UNION oder ähnlichem, verweigert die Formel die Zusammenarbeit, da diese eine zusammenhängende Range erwarten und nicht mit mehreren AREAS zurechtkommen.

Sabina