cbo Sortieren und suchen

Hi,
Ich habe auf meiner UF eine ComboBox mit vielenvielen Einträgen (Namen ala: Heinz, P. usw)
1. Frage:
Wie kann ich die ComboBox nun nach dem Anfangsbuchstaben sortieren lassen?
--> Es müsste schon in der ComboBox sein, da ich die Namen aus verschiedenen Tabellen nach bestimmten Kriterien einlesen lasse.
2. Frage:
Ich würde dann gerne über eine TextBox nacheinander Buchstaben (Name) eingeben und die Namen in der Combobox sollte sich dann automatisch an den Namen anpassen..also suchen.
habe da was versucht, aber ich hänge hier... :-(


Dim anz_cboE%
anz_cboE = Me.cbo_N.ListCount
With Me.cbo_N
For i = 1 To anz_cboE
If  ?    Like (Me.txt_alterWert & "*") Then
Me.txt_neuerWert = Wert aus Combobox
End If
Next i
End With

thx4hlp
Hack

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Rudi,
du kannst doch in der Combobox direkt sortieren. Ist doch auch nur ein Array.

' **********************************************************************
' Modul: UserForm4 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub UserForm_Activate()
    Dim intIndex As Integer
    With ComboBox1
        For intIndex = 90 To 65 Step -1
            .AddItem Chr$(intIndex)
        Next
    End With
    Call prcSort(0, ComboBox1.ListCount - 1)
End Sub

Private Sub prcSort(lngLBound As Long, lngUBound As Long)
    Dim lngIndex1 As Long, lngIndex2 As Long
    Dim strBuffer As String, strTemp As String
    lngIndex1 = lngLBound
    lngIndex2 = lngUBound
    strTemp = ComboBox1.List((lngLBound + lngUBound) \ 2)
    Do
        Do While ComboBox1.List(lngIndex1) < strTemp
            lngIndex1 = lngIndex1 + 1
        Loop
        Do While strTemp < ComboBox1.List(lngIndex2)
            lngIndex2 = lngIndex2 - 1
        Loop
        If lngIndex1 <= lngIndex2 Then
            strBuffer = ComboBox1.List(lngIndex1)
            ComboBox1.List(lngIndex1) = ComboBox1.List(lngIndex2)
            ComboBox1.List(lngIndex2) = strBuffer
            lngIndex1 = lngIndex1 + 1
            lngIndex2 = lngIndex2 - 1
        End If
    Loop Until lngIndex1 > lngIndex2
    If lngLBound < lngIndex2 Then Call prcSort(lngLBound, lngIndex2)
    If lngIndex1 < lngUBound Then Call prcSort(lngIndex1, lngUBound)
End Sub

Gruß
Nepumuk

Private Sub UserForm_Activate() Dim intIndex As Integer With ComboBox1 For intIndex = 90 To 65 Step -1 .AddItem Chr$(intIndex) Next End With Call prcSort(ComboBox1, 0, ComboBox1.ListCount - 1) End Sub

Private Sub prcSort(oCBX As Object, lngLBound As Long, lngUBound As Long) Dim lngIndex1 As Long, lngIndex2 As Long Dim strBuffer As String, strTemp As String lngIndex1 = lngLBound lngIndex2 = lngUBound strTemp = oCBX.List((lngLBound + lngUBound) \ 2) Do Do While oCBX.List(lngIndex1) lngIndex2 If lngLBound

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

cbo Sortieren und suchen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread