|
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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 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
|
|