Extrahieren eines Teils einer Zelle in Excel

Question

ich eine bestimmte Zelle zum Beispiel haben

CN=Cloud Test1,OU=Corp,OU=BT-Users,OU=BTATTER,OU=Test,OU=AD UAT,OU=Services,OU=Managed Users,DC=ngco,DC=com 

Die Anzahl der OU = mit verschiedenen Datensätzen variiert, mein Ziel ist es, nur etwas zu extrahieren, die OU = Infront hat, also grundsätzlich möchte ich:

"OU=Corp,OU=BT-Users,OU=BTATTER,OU=Test,OU=AD UAT,OU=Services,OU=Managed Users" 

als meine Ausgabe.

Nochmals vielen Dank für Ihre Hilfe!

Answer 1

als Matrixformel:

=TEXTJOIN(", ",TRUE,IF(LEFT(TRIM(MID(SUBSTITUTE(A1,",",REPT(" ",999)),(ROW(1:99)-1)*999+1,999)),2)="OU",TRIM(MID(SUBSTITUTE(A1,",",REPT(" ",999)),(ROW(1:99)-1)*999+1,999)),"")) 

Als Matrixformel, muss sie mit bestätigt werden Ctrl-Shift-Enter statt Eingabe, wenn Bearbeitungsmodus zu verlassen.

TEXTJOIN() ist nur mit einem Abonnement für Office 365 Excel verfügbar.

---

Wenn Sie TEXTJOIN nicht(), setzen Sie den Code in einem Modul an der Arbeitsmappe angebracht und die Formel verwenden, wie oben beschrieben:

Function TEXTJOIN(delim As String, skipblank As Boolean, arr) 

    Dim d As Long 
    Dim c As Long 
    Dim arr2() 
    Dim t As Long, y As Long 
    t = -1 
    y = -1 
    If TypeName(arr) = "Range" Then 
     arr2 = arr.Value 
    Else 
     arr2 = arr 
    End If 
    On Error Resume Next 
    t = UBound(arr2, 2) 
    y = UBound(arr2, 1) 
    On Error GoTo 0 

    If t >= 0 And y >= 0 Then 
     For c = LBound(arr2, 1) To UBound(arr2, 1) 
      For d = LBound(arr2, 1) To UBound(arr2, 2) 
       If arr2(c, d) <> "" Or Not skipblank Then 
        TEXTJOIN = TEXTJOIN & arr2(c, d) & delim 
       End If 
      Next d 
     Next c 
    Else 
     For c = LBound(arr2) To UBound(arr2) 
      If arr2(c) <> "" Or Not skipblank Then 
       TEXTJOIN = TEXTJOIN & arr2(c) & delim 
      End If 
     Next c 
    End If 
    TEXTJOIN = Left(TEXTJOIN, Len(TEXTJOIN) - Len(delim)) 
End Function