Zellen aufspalten
31.05.2018 17:57:19
Steffen
ich habe folgendes Problem: Ich habe in einer Spalte Zellen, bei der die jeweilige Zelle durch Unternehmensnamen und einem dazugehörigen Ansprechpartner strukturiert ist. Die Unternehmensnamen sind logischerweise unterschiedlich lang und bestehen aus unterschiedlich vielen Wörtern, die Namen der Personen ebenso.
Jetzt möchte ich beides voneinander trennen und in einer Spalte die Unternehmensnamen und in einer zweiten die Personennamen stehen haben.
Die Zelle ist jeweils unterteilt in "oben" und "unten" und somit per Tastenbefehl "Alt+Enter". Oben steht das Unternehmen und unten der Name.
Bsp.: Zelle E6:
Facebook Inc.
Mark Zuckerberg
Das Unternehmen wird mit einem Leerzeichen, dann Alt+Enter und noch einem Leerzeichen in der neuen Zeile vom Namen getrennt.
Mit diesem Befehl (ebenfalls hier im Forum gefunden) klappt das Trennen der einzelnen Worte. _ Aber ich weiß nicht wie ich den Enter-Befehl hier einfügen kann, sodass ich davon "oben" und "unten" jeweils trennen kann.
Sub TextTrennen()
Dim sText As String ' der eingegebene Text
Dim iPos As Integer ' die Position des Space (Trennzeichen)
Dim iCol As Integer ' die Beginn-Spalte der Aufsplittung
Dim iIndx As Integer ' For/Next Index
For iIndx = 2 To Range("A65536").End(xlUp).Row ' von Zeile 2 bis Ende
sText = Range("A" & iIndx).Value ' den Text holen
iPos = InStr(sText, " ") ' Space-Position feststellen
iCol = 2 ' Beginn der Aufteilungs-Spalte
While iPos > 0 ' solange Space gefunden wurde
Cells(iIndx, iCol).Value = Left(sText, iPos - 1) ' Zellen ab B befüllen
sText = Right(sText, Len(sText) - iPos) ' Eingabetext "verkürzen"
iPos = InStr(sText, " ") ' Space suchen
iCol = iCol + 1 ' nächste Spalte errechnen
Wend
Cells(iIndx, iCol).Value = sText ' letztes Wort übertragen
Next iIndx ' nächste Zeile
End Sub
Ich habe es schon statt Leerzeichen in der " " mit %{enter} oder %~ versucht, was aber nicht funktionierte...
Vielen Dank für eure Hilfe!