|
Hi, danke erstmal für die schnelle Antwort! Ich habe leider keinen Schimmer, wie ich mit diesem Umbruch umgehen kann. Versuche es jedoch jetzt einmal über einen Umweg.
Und zwar die Daten mit der split() funktion am Punkt in einzelne Zellen zu schreiben und dann mit join() die Daten wieder zusammenzufügen. Hoffentlich klappts.
Bei der STückzahl habe ich leider weiterhin das Problem, dass diese nur durch den Umbruch getrennt ist - also falls jemand dazu eine Idee hat, wäre das wirklich super duper nice.
Sonst hier schonmal mein split(), falls es jemand gebrauchen kann ;) :
Sub DatenTrennen()
'Vari definieren
Dim Datum As String
Dim EinzelneDaten() As String
Dim i As Integer
'Werte zuweisen
Datum = Cells(2, 5).Value
'ZeichenketteTrennen und in ein Array speichern
EinzelneDaten = split(Datum, " ")
'Werte einzeln in Zellen ausgeben
For i = 0 To UBound(EinzelneDaten)
Cells(2, i + 7) = EinzelneDaten(i)
Next i
End Sub
|