Formel-Suche um Teil aus Zelle zu bekommen

[Felix T.]

Hallo zusammen,

ich habe einen großen Datensatz in Form einer CSV-Datei. Diese hat in etwa 5.000 Zeilen mit jeweils einer Zelle pro Zeile. In diesen Zellen stecken ganz viele Informationen, unter anderen versteckt sich dort drin eine E-Mail Adresse, die ich gerne in einer separaten Spalte abbilden würde. Leider ist der Aufbau nicht immer gleich und es gibt verschiedene Möglichkeiten. Anbei mal ein Beispiel. Der Aufbau der beiden Zellen unterscheidet sich. Was gleich ist, dass vor und nach der E-Mail Adresse immer eine Komma ist.

Jetzt suche ich eine Formel, die dies vielleicht rauslösen kann.

Besten Dank für eure Hilfe.

LG Felix

[Ego]

Hallo Felix,

mit einer programmierten Funktion (UDF) eingebaut in ein allgemeines Modul könnte man es so lösen:

Code:

Option Explicit
Public Function Tuwat(strIn As String)
Dim intI As Integer
Dim varArr As Variant
Tuwat = ""
If strIn <> "" Then
    varArr = Split(strIn, ",")
    For intI = 0 To UBound(varArr)
        If InStr(varArr(intI), "@") > 0 Then
            Tuwat = varArr(intI)
        End If
    Next intI
End If
End Function

[Felix T.]

Hallo Helmut,

Unglaublich Es klappt sofort! Vielen Dank dir!!!!

LG Felix

[BoskoBiati]

Hi,

ginge auf jeden Fall so:

Code:

=TEIL(A1;SUCHEN("#";WECHSELN(A1;",";"#";LÄNGE(TEIL(A1;1;SUCHEN("@";A1)))-LÄNGE(WECHSELN(TEIL(A1;1;SUCHEN("@";A1));",";""))))+1;SUCHEN("#";WECHSELN(A1;",";"#";LÄNGE(TEIL(A1;1;SUCHEN("@";A1)))-LÄNGE(WECHSELN(TEIL(A1;1;SUCHEN("@";A1));",";""))+1))-SUCHEN("#";WECHSELN(A1;",";"#";LÄNGE(TEIL(A1;1;SUCHEN("@";A1)))-LÄNGE(WECHSELN(TEIL(A1;1;SUCHEN("@";A1));",";""))))-1)
=TEIL(A1;AGGREGAT(14;6;SPALTE(A1:INDEX(1:1;SUCHEN("@";A1)))/(TEIL(A1;SPALTE(A1:INDEX(1:1;SUCHEN("@";A1)));1)=",");1)+1;AGGREGAT(15;6;SPALTE(INDEX(1:1;SUCHEN("@";A1)):ZZ1)/(TEIL(A1;SPALTE(INDEX(1:1;SUCHEN("@";A1)):ZZ1);1)=",");1)-AGGREGAT(14;6;SPALTE(A1:INDEX(1:1;SUCHEN("@";A1)))/(TEIL(A1;SPALTE(A1:INDEX(1:1;SUCHEN("@";A1)));1)=",");1)-1)

Evtl auch mit Daten Text in Spalten.