Thema Datum  Von Nutzer Rating
Antwort
20.05.2014 10:04:26 Andy G
NotSolved
Blau Kombinationsfeld Datenpool
 20.05.2014 10:47:27 Amicro2000
NotSolved
22.05.2014 10:31:02 Andy G
NotSolved

Ansicht des Beitrags:
Von:
Amicro2000		 Datum:
20.05.2014 10:47:27		 Views:
753		 Rating:
     
Antwort:
  Ja
Thema:
Kombinationsfeld Datenpool

Hallo Andy,

z.b. hiermit:

 

Private Sub UserForm_Activate()
    Dim a As Range, i As Integer
    
    For Each a In Range("A1:A40")
        If Trim(a) <> "" Then
            For i = 0 To Me.ComboBox1.LineCount - 1
                If Me.ComboBox1.List(i) = Trim(a) Then GoTo Weiter
            Next i
            Me.ComboBox1.AddItem Trim(a)
Weiter:
        End If
    Next a
    Call SortComboBox(Me.ComboBox1)
End Sub

Sub SortComboBox(CB As Object)
    Dim iLast As Integer, iNext As Integer, iTmp
    
    With CB
        For iLast = 0 To .ListCount - 1
            For iNext = iLast + 1 To .ListCount - 1
                If .List(iLast) > .List(iNext) Then
                    iTmp = .List(iLast)
                    .List(iLast) = .List(iNext)
                    .List(iNext) = iTmp
                End If
            Next iNext
        Next iLast
    End With
End Sub

Das (SortComboBox) ist nur zum sortieren der Combobox einträgen.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.05.2014 10:04:26 Andy G
NotSolved
Blau Kombinationsfeld Datenpool
 20.05.2014 10:47:27 Amicro2000
NotSolved
22.05.2014 10:31:02 Andy G
NotSolved