[Ungelöst] Automatisiert drei einheitliche Spalten Excel-Tabelle erstellen

[Wastl]

Ergänzung:
Sorry, hatte zwischenzeitlich Auswärtstermin:

du könntest deinen Text, nach der Bereinigung der zusätzlichen Zeilenumbrüche und vor T-i-S mit dieser Formel bearbeiten:

PHP-Code:

=WECHSELN(WECHSELN(A1;"[";);"]  ";"¿") 


das erste Wechseln ersetzt die öffnende eckige Klammer durch nichts, das zweite WECHSELN die Zeichenfolge: schließende eckige Klammer und 2x Leerzeichen
Als Ergebnis bekommst du dann in A1:
22.12.17, 13:14:11¿Benutzer: ‎Nachrichten in diesem Chat sowie Anrufe sind jetzt mit Ende-zu-Ende-Verschlüsselung geschützt.
und bräuchtest dann in T-i-S nur nach dem umgedrehten Fragezeichen aufspalten, erzeugt mit Alt+168 (auf dem Zehnerblock eingegeben)

[snb]

Code:

Sub M_snb()
  With GetObject("G:\OF\0_test.docx")
     sn = Split(.Content, "[")
     .Close 0
  End With
 
  ReDim sp(UBound(sn), 2)
 
  For j = 1 To UBound(sn)
    sp(j - 1, 0) = Left(sn(j), 8)
    sp(j - 1, 1) = Mid(sn(j), 11, 8)
    sp(j - 1, 2) = Split(sn(j), "]")(1)
  Next
 
  Cells(1).Resize(UBound(sp), 3) = sp
End Sub

[Wastl]

Hallo snb,

deine Lösungen sind, wie immer, verblüffend und lehrreich.
Danke
Ich würde allerdings noch gerne ein Trim einfügen in der Zeile:

Code:

sp(j - 1, 2) = Trim(Split(sn(j), "]")(1))

Oder?

[snb]

@Wastl,

Danke  

Trim = "Kein Problem"
aber:

Code:

sp(j - 1, 2) = Split(sn(j), "] ")(1)

könnte auch das gewünschte Ergebnis erhalten.

[Wastl]

Hallo snb,

in diesem speziellen Fall muss ich dir uneingeschränkt zustimmen
:15: