Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fehler bei Mehrfachauswahl in Listenfeld
Autor: paul123
Datum: 08.07.03 08:58
hi, ich habe folg.code: Private Sub Command5_Click() Dim ListItems As Integer Dim Listarray() As String Dim o As Integer Dim p As Integer ListItems = 0 For o = 0 To Me.List1.ListCount - 1 If Me.List1.Selected(o) Then ListItems = ListItems + 1 End If Next ReDim Listarray(ListItems) For o = 0 To Me.List1.ListCount - 1 If Me.List1.Selected(o) Then Listarray(p) = Me.List1.List(o) p = p + 1 End If Next For o = 0 To ListItems - 1 Me.Text2 = Me.Text2 & Listarray(o) + vbCrLf Next End Sub Der Fehler tritt in der 2.For-Schleife bei:"Listarray(p) = Me.List1.List(o)" auf. Meldung:Index außerhalb des gültigen bereiches. Ziel: die selektierten Elemente variablen zuordnen. gruß paul!

Fehler bei Mehrfachauswahl in Listenfeld	588	paul123	08.07.03 08:58
Re: Fehler bei Mehrfachauswahl in Listenfeld	372	Dieter	08.07.03 11:18
Re: danke, hat prima geklappt.	328	paul123	08.07.03 12:41

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen