Ich würde mich freuen, wenn mir jemand bei diesem Problem weiterhelfen könnte.
Bin in VBA äußerst unversiert.
https://www.herber.de/bbs/user/42398.xls
Danke
Fab
Sub Aufloesen()
Wert = Trim(Range("B8").Value) ' Ausgangszelle
z = 0
For i = 1 To Len(Wert) ' Schleife für jedes Zeichen
Zeichen = Mid(Wert, i, 1) ' Zeichen auslesen
If Zeichen = Chr(10) Then GoTo nächstesI ' wenn Zeilenumbruch, dann ...
z = z + 1 ' ZeilenZähler hochzählen
Cells(12 + z, 2).Value = Zeichen ' Zeichen eintragen - ggf. Zeile und Spalte ändern
nächstesI: ' Sprungmarke
Next i
End Sub
oder Du versuchst es mit der Tabellenfunktion "Teil"
=TEIL($B$8;1;1) 1. Zelle
=TEIL($B$8;3;1) eine Zelle tiefer
=TEIL($B$8;5;1) eine Zelle tiefer
=TEIL($B$8;7;1) eine Zelle tiefer
Gruß Reinhard