Liste in Textfeld eintragen

[MarkusL]

Hallo zusammen,

ich habe eine Textliste, die ich über ein Array in ein Feld eintragen möchte, welches Mehrfachwerte zulässt.
Die Textliste und das Array sehen im Debugger gut aus.
Der Eintrag im Feld besteht allerding nur aus einigen lustigen "Strichmännchen".
Kann mir jemand helfen?

Code:
Dim lProtoText List As String
Dim vArray As Variant

Füllen der Textliste.......

vArray = lProtoText
docProto.Protokoll_Text = vArray

Danke an alle.
Gruß Markus

[Mitch]

Hallo du,

Der Eintrag im Feld besteht allerding nur aus einigen lustigen "Strichmännchen".

Was heißt das?

Dim lProtoText List As String
Dim vArray As Variant

Füllen der Textliste.......

vArray = lProtoText
docProto.Protokoll_Text = vArray

Wo ist da der Array? Ich sehe nur, dass du eine Liste in einen Variant steckst. Der Variant mag vArray heißen, aber das tut ja nix zur Sache.

Das wird auch dein Problem sein, denn grundsätzlich ist "Array in Item stecken" der richtige Weg. Aber muss eben auch ein Array sein...

Gruß,

Mitch

[MarkusL]

Hi Mitch,

ich habe solange Fehler gesucht und probiert, bis ich auch einige wichtige Zeilen gelöscht habe.
Jetzt habe ich es.   
Ich danke dir.

Dim strArrayToAppendTo (0) As String
Dim vArrayResult
.....weiter Dims

Set doc = view.GetFirstDocument()
vArrayResult = ArrayAppend(strArrayToAppendTo, "")

While Not(doc Is Nothing)
   Set nextdoc = view.GetNextDocument(doc)
   vArrayResult = ArrayAppend(vArrayResult, doc.Nachname(0))
   Set doc = nextdoc
Wend
   
vArrayResult = FullTrim(vArrayResult)

docNew.Text = vArrayResult