Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: listbox1 selected in listbox 2 übernehmen
Autor: Andi01
Datum: 02.09.05 13:11
hier mal der code der suchfunktion...... Public Function LstCboSearch(ObjLstCbo As Object, GesuchterEintrag As String, _ Optional Suchbeginn As Integer = 1) As Integer Dim ListenEintrag As String Dim Liste As Integer Dim GefundenePos As Integer Dim ListenPos As Integer ' AUSSCHLIESSEN VON FEHLERN ' Wurde ein GesuchterEintrag übergeben, nach dem gesucht werden soll? If GesuchterEintrag = "" Then ' Nein ' Funktion beenden LstCboSearch = -1 Exit Function End If ' Enthält die zu durchsuchende Liste Einträge? If ObjLstCbo.ListCount = 0 Then ' Nein ' Funktion beenden LstCboSearch = -1 Exit Function End If ' SUCHE NACH LISTENEINTRAG With ObjLstCbo ListenPos = .ListIndex ' Ende der zu durchsuchenden Liste erreicht? If ListenPos + 1 > .ListCount - 1 Then ' Ja ' Suche von vorne beginnen ListenPos = 0 Else ' Nein ' Positionszähler erhöhen ListenPos = ListenPos + 1 End If ' Liste von Positionszähler bis Listenende durchsuchen For Liste = ListenPos To .ListCount - 1 ListenEintrag = UCase$(Mid$(.List(Liste), Suchbeginn, Len(.List(Liste)))) GefundenePos = InStr(ListenEintrag, UCase$(GesuchterEintrag)) ' Wurde der Eintrag gefunden? If GefundenePos > 0 Then ' Ja ' Listindex zurückgeben LstCboSearch = Liste ' Funktion beenden Exit Function End If Next Liste ' Wurde die Suche von einer Position >1 gestartet? If ListenPos > 0 Then ' Ja ' Dann zusätzlich vom Listenbeginn bis zur übergebenen ' Listenposition suchen For Liste = 0 To ListenPos ' Wurde der Eintrag gefunden? GefundenePos = InStr(UCase$(.List(Liste)), UCase$(GesuchterEintrag)) If GefundenePos > 0 Then ' Ja ' Listindex zurückgeben LstCboSearch = Liste ' Funktion beenden Exit Function End If Next Liste End If ' kein Suchergebnis, keinen Listeneintrag markieren LstCboSearch = -1 End With End Function danke dir schon mal......

listbox1 selected in listbox 2 übernehmen	516	Andi01	01.09.05 18:19
Re: listbox1 selected in listbox 2 übernehmen	340	Master	01.09.05 19:33
Re: listbox1 selected in listbox 2 übernehmen	323	Andi01	01.09.05 20:28
Re: listbox1 selected in listbox 2 übernehmen	312	wincnc	02.09.05 10:19
Re: listbox1 selected in listbox 2 übernehmen	387	Andi01	02.09.05 12:33
Re: listbox1 selected in listbox 2 übernehmen	325	wincnc	02.09.05 13:00
Re: listbox1 selected in listbox 2 übernehmen	449	Andi01	02.09.05 13:11
Re: listbox1 selected in listbox 2 übernehmen	340	Andi01	02.09.05 15:31

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