Hallo,
sorry, hierfür habe ich gerade auch keine fertige Lösung parat. Mein Ansatz wäre, dass Trennzeichen für „ALT+ENTER“ (ASCII-Code 10 ??) zu suchen „FINDEN(ZEICHEN(10))“ und z.B. durch „|“ zu ersetzen. Dann in einem 2. Schritt über „Daten“ -> „Text in Spalten“ den Inhalt in einzelne Spalten ternnen.
So was ähnliches habe ich auch mit VBA schonmal realisiert, siehe hier:
=====Start=======
’ die Stellen mit dem String „|“ finden
Dim anz As Long, iposanz As Long, sText As String, pos1 As Long, _
pos2 As Long, pos3 As Long, pos4 As Long, pos5 As Long, pos6 As Long, _
pos7 As Long, pos8 As Long, pos9 As Long, pos10 As Long, pos11 As Long
sText = Range(„A1“)
iposanz = 0
’ hier ev. mal Variablen einbauen, für die akt. Dateien sind es 11 Trennzeichen
For anz = 1 To 11
iposanz = InStr(1 + iposanz, sText, „|“)
'MsgBox iposanz
If anz = 1 Then pos1 = iposanz
If anz = 2 Then pos2 = iposanz
If anz = 3 Then pos3 = iposanz
If anz = 4 Then pos4 = iposanz
If anz = 5 Then pos5 = iposanz
If anz = 6 Then pos6 = iposanz
If anz = 7 Then pos7 = iposanz
If anz = 8 Then pos8 = iposanz
If anz = 9 Then pos9 = iposanz
If anz = 10 Then pos10 = iposanz
If anz = 11 Then pos11 = iposanz
Next anz
’ Anhand der Stelle mit dem Trennzeichen die Textaufbereitung durchführen
Selection.TextToColumns Destination:=Range(„A1“), DataType:=xlFixedWidth, _
FieldInfo:=Array( _
Array(pos1 - 1, 9), _
Array(pos1, 2), _
Array(pos2 - 1, 9), _
Array(pos2, 2), _
Array(pos3 - 1, 9), _
Array(pos3, 2), _
Array(pos4 - 1, 9), _
Array(pos4, 2), _
Array(pos5 - 1, 9), _
Array(pos5, 1), _
Array(pos6 - 1, 9), _
Array(pos6, 1), _
Array(pos7 - 1, 9), _
Array(pos7, 1), _
Array(pos8 - 1, 9), _
Array(pos8, 1), _
Array(pos9 - 1, 9), _
Array(pos9, 1), _
Array(pos10 - 1, 9), _
Array(pos10, 1), _
Array(pos11 - 1, 9)), _
TrailingMinusNumbers:=True
Dim array1() As String
=====ENDE=======
Musst halt ein bischen probieren, aber ich denke, dass ist der Ansatz dafür.
