Hallo zusammen,
ich möchte Teile einer Zelle durchsuchen, und mir den "Rest" der Zeile aus dieser Zelle inkl. des gesuchten Begriffes ausgeben lassen.
Beispiel (Das alles steht in EINER Zelle):
Das ist ein Text mit vielen Wörtern.
Das ist ein Satz mit vielen Wörtern.
Das ist eine Blume mit vielen Blättern.
Das ist ein Baum mit vielen Blättern.
Das ist ein Auto mit vier Rädern.
Das ist ein Laster mit vier Rädern.
Suche ich nach Auto, finde ich natürlich Auto. Ich möchte an dem Beispiel aber dann den Rest dieser Zeile ausgegeben bekommen, nämlich:
Auto mit vier Rädern.
Ich hoffe ich habe mich halbwegs verständlich ausgedrückt ;)...
Hallo Shortylaforge,
=TEIL(A1;FINDEN(B4;A1);FINDEN(".";A1;FINDEN(B4;A1)+1)-FINDEN(B4;A1)+1)
In A1 steht der zu durchsuchende Text, in B4 das Wort nach dem Du suchst.
"Rest" habe ich definiert als Teil bis zum nächsten Punkt ".".
Gruß,
Lutz
Moin,
mit einer ausblendbaren Hilfsspalte kannst du das Ganze so flexibel gestalten:
| Arbeitsblatt mit dem Namen 'Tabelle3' |
| A | B | C | D |
| 1 | Text | Suchtext | HS | Ausgabetext |
| 2 | Das ist ein Text mit vielen Wörtern. | Blättern | | Das ist eine Blume mit vielen Blättern. |
| 3 | Das ist ein Satz mit vielen Wörtern. | | | Das ist ein Baum mit vielen Blättern. |
| 4 | Das ist eine Blume mit vielen Blättern. | | 4 | |
| 5 | Das ist ein Baum mit vielen Blättern. | | 5 | |
| 6 | Das ist ein Auto mit vier Rädern. | | | |
| 7 | Das ist ein Laster mit vier Rädern. | | | |
| 8 | | | | |
| 9 | | | | |
| 10 | | | | |
| Zelle | Formel |
| C2 | =WENN(ISTZAHL(FINDEN($B$2;A2))=WAHR;ZEILE();"") |
| D2 | =WENNFEHLER(INDEX(A:A;KKLEINSTE($C$2:$C$10;ZEILE(A1)));"") |
| Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016 |
| Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg |
Hallo,
hier noch eine Variante mit einer VBA-Funktion (kommt in ein allgemeines Modul), die in Excel in einer Formel verwendet werden kann.
Modul Modul1Option Explicit
Function FindeZeilen(strZellentext As String, strSuchtext As String, Optional Großkleinschreibung As Boolean) As String
Dim strErgebnistext As String
Dim varZeile As Variant
Dim varZellentextzeilen As Variant
varZellentextzeilen = Split(strZellentext, vbLf)
For Each varZeile In varZellentextzeilen
If InStr(1, varZeile, strSuchtext, Großkleinschreibung + 1) Then
strErgebnistext = strErgebnistext & vbLf & varZeile
End If
Next varZeile
FindeZeilen = Mid(strErgebnistext, 2)
End Function
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 14 - mit VBAHTML 12.6.0
| A | B |
| 1 | Das ist ein Text mit vielen Wörtern.
Das ist ein Satz mit vielen Wörtern.
Das ist eine Blume mit vielen Blättern.
Das ist ein Baum mit vielen Blättern.
Das ist ein Auto mit vier Rädern.
Das ist ein Laster mit vier Rädern. | |
| 2 | | |
| 3 | | |
| 4 | Vier | |
| 5 | vier | Das ist ein Auto mit vier Rädern.
Das ist ein Laster mit vier Rädern. |
| 6 | Vier | Das ist ein Auto mit vier Rädern.
Das ist ein Laster mit vier Rädern. |
| Formeln der Tabelle |
| Zelle | Formel | | B4 | =FindeZeilen(A$1;A4;WAHR) | | B5 | =FindeZeilen(A$1;A5;WAHR) | | B6 | =FindeZeilen(A$1;A6;FALSCH) |
|
Gruß Uwe
(05.08.2020, 06:57)Lutz Fricke schrieb: [ -> ]Hallo Shortylaforge,
=TEIL(A1;FINDEN(B4;A1);FINDEN(".";A1;FINDEN(B4;A1)+1)-FINDEN(B4;A1)+1)
In A1 steht der zu durchsuchende Text, in B4 das Wort nach dem Du suchst.
"Rest" habe ich definiert als Teil bis zum nächsten Punkt ".".
Gruß,
Lutz
Hey Lutz,
genau das habe ich gesucht... :19: Das war das mit dem Wald vor lauter Bäumen. Habs jetzt nochmal vereinfacht, da es im eig Suchtext ausreicht eine bestimmte Menge an Zeichen auszugeben!!!
=WENNFEHLER(TEIL(Wo suche ich;(SUCHEN(Suchbegriff;Wo suche ich));20);"")
Vielen Dank auch an die anderen hier für ihre Lösungen. Das liebe ich an Excel so. Viele Wege führen nach Rom
