Hi,
wenn stets wie im Beispiel
Nachname, Vorname,
dann
A1: Mustermann, Max, EZ-463...
B1: =LINKS(A1;FINDEN(",";A1;1+FINDEN(",";A1))-1)
Anschliessend Daten -> Text-in-Spalten auf Spalte B anweden um Nachname und Vorname zu trennen.
VBA-Alternative:
Split()-Funktion und "," als Trenner in einer Schleife:
Voraussetzung:
a) SpalteA = Deine Daten
b) Rechtsklick auf den Namen des Tabellenblatts; Code anzeigen; den nachfolgenden Code da einfügen; mit F5 ausführen
Sub SplitA()
Dim lngRow As Long
Dim rng As Range, c As Range
'
lngRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'
Set rng = ActiveSheet.Range(Cells(1, 1), Cells(lngRow, 1))
'
For Each c In rng
c.Offset(0, 1).Value = Split(c.Value, ",")(0)
c.Offset(0, 2).Value = Split(c.Value, ",")(1)
Next
'
Set c = Nothing: Set rng = Nothing
End Sub
|