Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1152to1156
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
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

Links zu Excel-Dialogen

ComboBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige