Clever-Excel-Forum

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 :)

Hallo,

sieh dir mal die Funktion Text in Spalten an.

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

Ein einfache UDF

Code:
Function F_snb(c00)

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

Edn Function

Hallo, :19:

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

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

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

EDIT: Gelöscht, da hinfällig

Bauerst

Klaus-Dieter

MisterBurns

snb

Case

Bauerst

MisterBurns