PDA

Vollständige Version anzeigen : Mehrfachauswahl im Listenfeld


Stevens1
10.01.2001, 08:42
Hallo,

ich habe in einem Formular ein Listenfeld 'lstAuswahl'. In diesem Listenfeld habe ich eine Mehrfachauswahl eingeben.

Wie kann man jetzt die Daten auswerten, d. h. ich möchte z. B. jeden Namen mittels MsgBox angezeigt haben.

Ich hab einen Versuch gestartet, aber ich kommt mit der For-Next-Each-Schleife nicht zurecht.

Mein Versuch:

For Each lstAuswahl In frmDaten ' Alle Elemente durchlaufen.
If Me.lstAuswahl.Selected = True Then 'Element ist in der Liste ausgewählt
MsgBox lstAuswahl.Column(7)
End If
Next

Was muß man da beachten?
Ich bedanke mich recht herzlich!
Daniel

thomasKettler
06.05.2001, 17:52
hallo, habe ähnliches Problem, hast Du schon einen lösungs ansatz?
thomas

Pipo
06.05.2001, 20:43
Versuchs mal in dieser Richtung

Dim ctlLst As Control
Dim Zähler As Integer

Set ctlLst = Me!lstAuswahl

If ctlLst.ListCount = 0 Then
MsgBox "Es wurde keine Auswahl getroffen !!", vbCritical
Exit Sub
End If
For Zähler = 0 To ctlLst.ListCount - 1

If ctlLst.Selected(Zähler) Then
MsgBox.......
end if


next Zähler

Viel Glück

A.S.
06.05.2001, 21:24
@all,

schaut mal in die OH unter

ItemsSelected.

HTH

Arno