Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

gefüllte Combobox sortieren

gefüllte Combobox sortieren
13.02.2008 15:00:24
TOM
Hallo zusammen
Ist es möglich eine mit AddItem gefüllte Combobox zu sortieren?
Besten Dank für einen Tipp
Gruss
TOM

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gefüllte Combobox sortieren
13.02.2008 15:05:00
Rudi
Hallo,
alle Items in ein Aray auslesen, Array sortieren, CB löschen und aus dem Array wieder füllen.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: gefüllte Combobox sortieren
13.02.2008 15:45:06
Nepumuk
Hallo Rudi,
wozu den Umweg über ein Array? Eine Combobox ist doch schon eines.
Gruß
Nepumuk

AW: gefüllte Combobox sortieren
13.02.2008 15:12:04
Peter
Hallo Tom,
z. B. so:


'
'    die Werte aus Tabelle1, Spalte A sollen in die ComboBox
'    eingelesen und alphabetisch aufsteigend sortiert werden.
'
Private Sub UserForm_Activate()
Dim lZeile  As Long     ' For/Next Zeilen-Index
Dim lIndxA  As Long     ' For/Next Index - außen
Dim lIndxI  As Long     ' For/next Index - innen
Dim sTemp   As String   ' temporärer Zwischenspeicher
'
'      Combobox zuvor löschen :
'
   ComboBox1.Clear
'
'      Combobox mit Werten aus Spalte A füllen :
'
   For lZeile = 2 To [A65536].End(xlUp).Row
      Me.ComboBox1.AddItem Cells(lZeile, 1)
   Next
'
'      Combobox sortieren :
'
   For lIndxA = 0 To Me.ComboBox1.ListCount - 1
      For lIndxI = 0 To lIndxA - 1
         If Me.ComboBox1.List(lIndxI) > Me.ComboBox1.List(lIndxA) Then
            sTemp = Me.ComboBox1.List(lIndxI)
            Me.ComboBox1.List(lIndxI) = Me.ComboBox1.List(lIndxA)
            Me.ComboBox1.List(lIndxA) = sTemp
         End If
      Next lIndxI
   Next lIndxA
End Sub 


Gruß Peter

Anzeige
AW: gefüllte Combobox sortieren
13.02.2008 15:22:00
TOM
Besten Dank für die schnellen Antworten!!!!!!!
Werde es ausprobieren.
Schöner Nachmittag und Gruss
TOM

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige