Text links und Teil rechts vom Komma extrahieren

[Bauerst]

Hallo,
habe schon überall verzweifelt nach einer Funktion bzw. dem Code gesucht der mir ermöglicht aus einer Zeile von Text einen Teil des Textes zu extrahieren.

Daten:
2018-0001 12500 AOK Mustermann, Peter § 37.2 SGB
2018-0002 13500 DAK Mustermann, Wilma § 45b SGB

Ich möchte nun folgendes Ergebnis erzielen:
Mustermann, Peter
Mustermann, Wilma

Wie schaffe ich das?

Danke schon mal :)

[Klaus-Dieter]

Hallo,

sieh dir mal die Funktion Text in Spalten an.

[MisterBurns]

Wenn die Daten immer gleich aufgebaut sind, bietet sich das bereits erwähnte Text in Spalten an. Alternativ geht es mit diesem Code

Code:

Sub NameFinden()
Dim Komma As Integer, i As Integer
Dim Links As Integer, Rechts As Integer, ZeichenRechts As Integer

With Sheets("Tabelle1")
   For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
       Komma = InStr(1, .Cells(i, 1), ",", vbTextCompare)
       Links = InStrRev(.Cells(i, 1), " ", 31)
       Rechts = InStr(Komma + 2, .Cells(i, 1), " ", vbTextCompare)
       ZeichenRechts = Len(.Cells(i, 1)) - Rechts + 1
       .Cells(i, 2) = Mid(.Cells(i, 1), Links + 1, Len(.Cells(i, 1)) - (Links + ZeichenRechts))
   Next i
End With

End Sub

[snb]

Ein einfache UDF

Code:

Function F_snb(c00)
  F_snb=mid(split(c00," §")(0),21)
Edn Function

[00202]

Hallo, :19:

bei Stringmanipulationen bietet sich immer RegExp an:
[attachment=23262]

[Bauerst]

Danke, die Funktion von Case war genau das was ich gesucht hatte.

Konnte das so nun auch für weitere Dinge nutzen.

[MisterBurns]

EDIT: Gelöscht, da hinfällig