Zwei Spalten von lListenfeld in anderes kopieren

[andreasl4099]

Hallo forum!

Habe ein Problem mit zwei Listenfeldern:
Ich will von einem Listenfeld mit allen Datensätzen die markierten in ein zweites Listenfeld übernehmen. Erstes Lst hat die Spalten "ID, Text1, Text3" und nun will ich die ID und Text1 in ein zweites Lst zur Weiterverarbeitung übernehmen. Hier mein Codesegment für die Übernahme:

Code (vb) [Auswählen] Erweitern

   
For Each varElem In lstTitel.ItemsSelected
        lstTitelneu.AddItem (lstTitelneu.Value & lstTitel.Column(0, varElem) & strNeueZeile)
        lstTitel.Selected(varElem) = 0                  'Markierung entfernen
    Next


Mit einer Spalte funktioniert es einwandfrei!
Aber nun stehe ich anscheinend auf der Leitung wie die Column(1) auch in das zweite Lst bekomme


Danke für die Hilfe!!

[DF6GL]

Hallo,

Code [Auswählen] Erweitern

Me!lstTitelneu.AddItem Me!lstTitel.Column(0, varElem) & ";" & Me!lstTitel.Column(1, varElem)

wobei die Spaltenanzahl des Listenfeldes auf 2 stehen muß

[andreasl4099]

Guten Morgen!

Danke für die Lösung - funkt super!!

lg

Andi