Ich habe mir ein kleines VBA Script geschrieben, um folgendes zu erreichen:
In Zeile 2 habe ich in den Spalten 1-9 Text stehen. Diesen kopiere ich in eine Stringvariable
PString = PString & Chr(10) & ActCell.Offset(Zeile, 0).Value
Diesen STring füge ich dann in Word ein die Chr(10)s bewirken, dass ich dort für jeden Substring einen Aufzählungspunkt habe. Hier kann man nun den Text bearbeiten und dieser soll dann wieder zurück in die Excelzellen kopiert werden (muss hierfür wieder gesplittet werden).
Ich habe den Gesamten String schon, Chr(10) separiert vorliegen (kann ich per Degug.Print auslesen), aber ich bekomme es nicht in den String bei Chr(10) zu splitten.
Mein Code, der nicht funktioniert:
MyAr = Split(PString, Chr(10))
For i = LBound(MyAr) To UBound(MyAr)
Debug.Print MyAr(i)
Die Arrayelemente sind alle leer. Hat vielleicht jemand eine Ahnung, wie ich das noch umsetzen kann resp. überhaupt umsetzen kann.