Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1012to1016
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
Inhaltsverzeichnis

Combobox Werte sortieren

Combobox Werte sortieren
30.09.2008 09:20:00
Melanie
Hallo,
Eigentlich sind es 2 Fragen.
1. habe ich Werte aus Zeile 10 (H - BS) in eine Combobox eingefügt. Diese Werte würde ich gern alphabetisch sortieren lassen, weiß aber nicht, wie. :(
2. kommen dort hin und wieder leere Werte drin vor. Kann man diese irgendwie ausschließen?
Wenn jmd Rat weiß, wäre mir sehr geholfen.
Vielen Dank schon einmal.
Gruß Melanie

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox Werte sortieren
30.09.2008 12:39:00
Peter
Hallo Melanie,
so sollte es z. B. funktionieren:
Option Explicit

Private Sub UserForm_Activate()
Dim iSpalte  As Integer     ' 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 Monatsnamen
'      ComboBox zuvor löschen :
ComboBox1.Clear
'      ComboBox mit Werten aus Zeile 10 Spalte H-BS füllen :
With ComboBox1
For iSpalte = 8 To 71
If Cells(10, iSpalte).Value  "" Then
.AddItem Cells(10, iSpalte).Value
End If
Next iSpalte
End With
'      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
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub


Gruß Peter

Anzeige
AW: Combobox Werte sortieren
30.09.2008 12:47:00
Melanie
Ein Wort: PERFEKT. Danke danke. :)

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige