Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kombinationsfeld sortieren

Forumthread: Kombinationsfeld sortieren

Kombinationsfeld sortieren
SteffenS
Hallo Zusammen,
ich lese per Schleife einige Werte aus einer Tabelle in ein Kombinationsfeld ein.
Ich möchte diese Werte aber vor dem einlesen sortieren.
Wie kann ich dies machen ohne die Tabelle zu sortieren?
Danke Euch schonmal.
VG
Steffen
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Kombinationsfeld sortieren
23.04.2010 14:16:59
JOWE
Hallo Steffen, so etwa? 
Sub arryay_füllen_sortieren_u_in_Combobox_schreiben()
Dim objColl As New Collection
Dim ws As Worksheet
Set ws = ActiveSheet
For i = 3 To 15
objColl.Add ws.Cells(i , 2)
Next
For lngZ = 0 To objColl.Count - 1
For lngC = 1 To lngZ
If objColl(lngC) > objColl(lngZ) Then
strTemp = objColl(lngZ)
objColl(lngZ) = objColl(lngC)
objColl(lngC) = strTemp
End If
Next
Next
For i = 1 To objColl.Count - 1
me.combobox1.additem objColl(i + 1)
Next
End Sub

Gruß
Jochen
Anzeige
fast richtig
23.04.2010 15:48:39
SteffenS
Kann ich es auch machen ohne die Tabelle vorher zu sortieren?
Ich möchte die Tabelle gern unberührt lassen.
Danke nochmal
VG
Steffen
ArrayList.Sort
23.04.2010 16:07:41
ransi
HAllo Steffen
Ab XP sollte auch sowas laufen:
Option Explicit


Sub arryay_füllen_sortieren_u_in_Combobox_schreiben()
Dim objAL As Object
Dim lngL As Long
Set objAL = CreateObject("System.Collections.ArrayList")
With objAL
    For lngL = 3 To 15
        .Add Cells(lngL, 2).Value
    Next
    .Sort
    ComboBox1.List = .toArray
End With
End Sub
Versuch mal.
ransi
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige