Hallo zusammen,
ich möchte gerne verschiedene Wörter aus einer Spalte auslesen und sie dann in einer anderen Spalte "zusammenfassen". Hab mal eine Beispielexcel erstellt. Hab schon einiges versucht aber komme einfach nicht drauf wie das gehen soll, vor allem mit mehreren Wörtern.
Ich hoffe ihr könnt mir helfen.
Vielen Dank, super Forum nach wie vor!
eine Spalte: welche ?
andere Spalte: welche ?
Im Beispiel ist es Spalte A aus der ich Wörter wie "Marketing" oder "Projekt" auslesen möchte und zu "Marketing" und "Projektarbeit" in B zusammenfassen möchte. Ich hoffe ich habe es nun besser erklärt.
Hallo,
Formel in B2 und runterziehen:
=WAHL(1*ISTZAHL(FINDEN("Marketing";A2))+
2*ISTZAHL(FINDEN("Projekt";A2))+
3*ISTZAHL(FINDEN("Controlling";A2))+1;"";"Marketing";"Projektarbeit";"Controlling")
(Sah ich gerade erst hier von
LCohen)
Gruß Uwe
Moin
| Arbeitsblatt mit dem Namen 'Tabelle1' |
| A | B | C | D | E | F |
| 1 | Projekt | Richtige Aufbereitung nach Schlägwörtern | | | | |
| 2 | MarketingSeminar | Marketing | Marketing | | Marketing | Marketing |
| 3 | Marketing Seminar | Marketing | Marketing | | Projekt | Projektarbeit |
| 4 | Marketing Coaching | Marketing | Marketing | | Controlling | Controlling |
| 5 | Termin Marketing | Marketing | Marketing | | | |
| 6 | Projektmanagement | Projektarbeit | Projektarbeit | | | |
| 7 | Projekt Management | Projektarbeit | Projektarbeit | | | |
| 8 | Projekt Termin | Projektarbeit | Projektarbeit | | | |
| 9 | Projekt termin | Projektarbeit | Projektarbeit | | | |
| 10 | Controllingstundung | Controlling | Controlling | | | |
| 11 | Controlling 123 | Controlling | Controlling | | | |
| 12 | Termin Controlling | Controlling | Controlling | | | |
| 13 | Ticket Controlling | Controlling | Controlling | | | |
| Zelle | Formel |
| C2 | =VERWEIS(42;1/SUCHEN($E$2:$E$4;A2);$F$2:$F$4) |
| Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016 |
| Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg |
Hallo nochmal,
leider hab ich nun ein weiteres Problem. Wie stellt man das mit mehreren Wörtern an? Habe hierzu mal ein Beispielsheet erstellt.
Vielen Dank nochmal!
Niemand einen Vorschlag? Ich komme weder mit =verweis noch mit =wahl drauf.
Hallo tomatekarate,
du brauchst doch lediglich in dem Lösungsvorschlag von shift-del die Hlfstabelle mit der Zuordnung der Suchbegriffe zu den Schlagworten um die zusätzlichen Suchbegriffe erweitern.
also so:
| Arbeitsblatt mit dem Namen 'Tabelle1' |
| A | B | C | D | E | F | G |
| 1 | Markierung | Auslesen | | | | Hilfstabelle | |
| 2 | Retro-Look | Agile | Nach den wörtern retro,daily,agile,review, und planning ausgelesen | Agile | | Suchbegriff | Schlagwort |
| 3 | Daily xxx | Agile | Nach den wörtern retro,daily,agile,review, und planning ausgelesen | Agile | | Retro | Agile |
| 4 | yyy Agile | Agile | Nach den wörtern retro,daily,agile,review, und planning ausgelesen | Agile | | Daily | Agile |
| 5 | p_review | Agile | Nach den wörtern retro,daily,agile,review, und planning ausgelesen | Agile | | Agile | Agile |
| 6 | planning | Agile | Nach den wörtern retro,daily,agile,review, und planning ausgelesen | Agile | | review | Agile |
| 7 | MergeRequest | Merge | nach dem Wort "Merge ausgelesen | Merge | | planning | Agile |
| 8 | Merge Termin | Merge | nach dem Wort "Merge ausgelesen | Merge | | Merge | Merge |
| 9 | Merge123 | Merge | nach dem Wort "Merge ausgelesen | Merge | | Code | Code Review |
| 10 | Codereview | Code Review | nach dem Wort Code ausgelesen | Code Review | | Kode | Code Review |
| 11 | Code Review | Code Review | nach dem Wort Code ausgelesen | Code Review | | | |
| 12 | Code Review & Planning | Code Review | nach dem Wort Code ausgelesen | Code Review | | | |
| 13 | Kode Reviewww | Code Review | nach dem Wort Kode ausgelesen | Code Review | | | |
| Zelle | Formel |
| D2 | =VERWEIS(2;1/SUCHEN($F$3:$F$10;A2);$G$3:$G$10) |
| Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010 |
| Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg |
Gruß
Fred
Code:
Sub M_snb()
sn = Split("Merge Code Retro Daily planning")
For Each it In sn
Sheet1.Columns(1).Replace "*" & it & "*", IIf(InStr(sn(0) & sn(1), it), it, "Agile")
Next
End Sub