Zelle: mehrfache Werte suchen

Hallo Zusammen,
ich habe eine Spalte (aus einer CSV gewonnen), die mehrere Daten enthält, von denen ich aber nicht alle brauche und die auch nicht in konsistenter Sortierung erscheinen.
Beispiel:
A1: Server: ABC, Typ: Intel, App: 1, App: 2, CPU: 2
A2: A1: Server: BCD, App: 1, Typ: AMD, App: 3, CPU: 4
Ich könnte durch Text in Spalten die Dinger trennen, aber die Daten sind eben nicht gescheit sortiert, also hätte ich viel zu viele Spalten am Ende.
Allerdings brauche ich sowieso nur die Aussage über die "App". Am liebsten möchte ich also in B1 sagen: Schau mal, ob du in A1 "App:" findest und schreib dann hier rein, was dazu steht. Und wenn du das öfter findest, dann gib mir das mit Komma getrennt hier rein.
So dass also in Spalte B steht:
B1: 1, 2
B2: 1, 3
Habt ihr eine Idee?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

=TEXTVERKETTEN(", ";;--LINKS(TEIL(WECHSELN(WECHSELN(A1&",";" ";"#");"App:#";WIEDERHOLEN(" "; 99));SPALTE(B:C)*99-98;99);SUCHEN(",";TEIL(WECHSELN(WECHSELN(A1&",";" ";"#");"App:#"; WIEDERHOLEN(" ";99));SPALTE(B:C)*99-98;99))-1))

Function myFilter(txt As String, TrKz As String, Ftxt As String) Dim TeilTexte TeilTexte = Split(txt, TrKz) TeilTexte = Filter(TeilTexte, Ftxt) myFilter = Join(TeilTexte, TrKz) myFilter = Replace(myFilter, Ftxt, "") End Function

…ganz gut, Therese,
nur hat µS erst vor, eine Fkt zu entwickeln, die höchstwahrscheinlich darauf basieren wird. In VBA gibt's dagg schon lange eine einfache Variante dafür, die vbFkt Split, die auch eine Grundlage von Daniels UDF ist. Aber auch Lupos Fml fktioniert (als singulare MatrixFml) mit deinen Bspp, nur musste ich das in Xl2013 nicht vorhandene TEXTVERKETTEN durch meine UDF VJoin, die schon länger im hiesigen Archiv existiert und auf der auch von Daniel verwendeten vbFkt Join basiert, ersetzen:
{=VJoin(--LINKS(TEIL(WECHSELN(WECHSELN(A1;" ";"#");"App:#";WIEDERHOLEN(" ";99));SPALTE(B:C)*99-98;99);
SUCHEN(",";TEIL(WECHSELN(WECHSELN(A1;" ";"#");"App:#";WIEDERHOLEN(" ";99));SPALTE(B:C)*99-98;99))-1);", ")}
Allerdings ist diese Fml recht lang, weil Lupo seine ErsatzMethode für die fehlende xlFkt TEXTSPALTEN (?) verwendet hat. Dagg würde die Fml mit sauberer Aufteilung der 3 notwendigen Fktionalitäten auf eigene UDFs (wie in Xl üblich) und deren Verbindung in einer singularen MatrixFml wesentlich kürzer:
{=GLÄTTEN(VJoin(WENN(LINKS(VSplit(A1;", ");5)="App: ";RECHTS(VSplit(A1;", ");2);"");", ";-1))}
Die xlFkt GLÄTTEN ist hierbei nur erforderlich, falls die gesuchten Zahlen auch (maximal) 2stellig sein könnten. Anderenfalls (stets 1stellig!) wäre auch das 2.Argument von RECHTS nicht erforderlich.
Die beiden UDFs wurden in dieser BspDatei aus dem Archiv verwendet.
Morhn, Luc :-?
Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder. Stapps ironisches Paradoxon

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread