Hallo,

Auch wenn der Code nicht von mir stammt, bin ich mal so frei den Code von Gast 51782 zu erklären:

Nm ist eine beliebige Variable in der ein Array gespeichert wird, nämlich das von der Split-Funktion zurückgegebene eindimensionale nullbasierte Array. Wenn du nm dimensionieren willst, dann nur als Variant. Also kannst du es auch lassen, da nicht dimensionierte Variablen immer von Typ Variant (mit Untertypen) sind. Eventuell ist keine Variable sondern eine Aussage (würd ich jetzt mal behaupten). Nicht eventuell sondern auf jeden Fall brauchst du Application.Transpose, das das eindimensionale Array in ein Range-Array umwandelt. wenn du das weglässt wird nämlich nur der erste Name zurückgegeben. Mit Cells.Resize erzeugst du in Spalte 2 einen Range, der so groß ist wie das Array (die Größe des Arrays wird von Ubound bestimmt). Da du durch Transpose nun ein zweidimensionales Range-Array hast, kannst du dem erzeugten Range nun die Werte des Arrays zuweisen.

Hier der Code von Gast in lesbarer Form und leicht abgewandelt.

Sub lkjaslf()

nm = Split(Cells(1, 1), ",")
nm = Application.Transpose(nm)
Cells(1, 2).Resize(UBound(nm)) = nm

End Sub

Und hier alternativ ein Code, wie ich ihn aufgebaut hätte. Der Code gehört in ein allgemeines Modul (z.B. Modul1)

Function Teilname(Namen As String, Position As Long, Optional Delimiter As String = ",") As String
  arr = Split(Namen, Delimiter)
  Teilname = arr(Position - 1)
End Function

Das geht sogar noch kürzer:

Function Teilname(Namen As String, Position As Long, Optional Delimiter As String = ",") As String
  Teilname = Split(Namen, Delimiter)(Position - 1)
End Function

Dann im Sheet in B1 nur die Formel =Teilname($A$1;zeile()) eingeben oder z.B. =Teilname($A$1;2) und sehen was passiert. Die erste Formel kann man auch runterziehen. Oder falls du mit Semikolon trennst dann =Teilname($A$1;2;";")

Gruß Mr. K.