Werte aus Text isolieren?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andreas,
Power Query wäre tatsächlich eine gute Lösung, aber einfach?
In VBA gibe es die nutzliche "Split" Funktion, die es als Excel-Formel nicht gibt, ausser in 365 als Lambda: siehe http://www.excel-ticker.de/text-split/
Es trennt einen Text nach dem gegebenen "Trenner" ("x" oder "/") in einem Array, wovon man die einzelne Element rausholen kann.
Aber es lässt sich leicht als UDF (User Defined Function) nachbilden: ein kurzes VBA-Code, dass man wie ein Excel-Formel einsetzen kann:


Public Function Splitter(Target, Trenner As String, Optional Index = 1)
Splitter = Trim(Split(Target, Trenner)(Index - 1))
End Function

_ Visual Basic Editor öffnen (Alt+F11)
_ Modul einfügen (Alt+e, m)
_ Code in dem Modul-Fenster copy-pasten
Dann in der Tabelle:


_ Zelle H13: =WENN(ISTFEHLER(splitter($B13;"/";2));splitter($B13;"x");splitter($B13;"/"))
_ Zelle I13: =WENN(ISTFEHLER(splitter($B13;"/";2));"";splitter(splitter($B13;"/";2);"x"))
_ Zelle J13: =splitter($B13;"x";2)
_ Zelle K13: =splitter(splitter($B13;"x";3); " ")

zum Testen einfach probieren
=splitter("a / b x c x d"; "x"; 1)
=splitter("a / b x c x d"; "x"; 2)
=splitter("a / b x c x d"; "x"; 3)
Na ja: auch nicht einfach.
VG
Yal

Also Yal,
ich schreibe auch VBA. Aber ich finde es auch sehr gut, dass immer mehr Verantwortliche der IT-Leitung den Einsatz von VBA -insbesondere wenn der Code aus einer fremden Quelle kommt- untersagen. Und wenn ich bedenke, dass sehr viele Lösungen bei Einsatz von PQ ohne eine einzige (selbst erstellte) Formel bzw. Code erreichbar sind, dann zeigt dieses die Stärken des Tools auf.
Und da ich seit Anfang der 80er Jahre absoluter Autodidakt in Sachen EDV/IT bin kann ich dir versichern, dass das Erlernen von PQ deutlich leichter ist als die komplexe Logik einer Programmiersprache (VBA) zu beherrschen. Ich bin vielleicht durch jahrelange Tätigkeit als Trainer etwas "versaut", dass ich vom Gegenüber erwarte, sich selbst und seine Fähigkeiten maximal einzubringen. Fertiglösungen wären für meine Kunden vielleicht sogar billiger gewesen (zumindest zu Beginn), aber nach einem Seminar konnten die meisten Teilnehmer diverse Probleme selbstständig lösen, auch wenn die Datenlage eine ganz andere war.

Gruß
Günther | mein Excel-Blog

Public Function VonBis(Target, Von, Bis, Optional VonIndex = 1, Optional BisIndex = 1) Dim Start As Integer, Start_Mem Dim Ende As Integer, Ende_Mem Dim i For i = 1 To VonIndex Start = InStr(Start + 1, Target, Von) If Start = 0 Then Start = Start_Mem Else Start_Mem = Start End If Next For i = 1 To BisIndex Ende = InStr(Ende + 1, Target, Bis) If Ende = 0 Then Ende = Ende_Mem Else Ende_Mem = Ende End If Next VonBis = Mid(Target, Start + 1, Ende - Start - 1) End Function

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread