Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1452to1456
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
1452to1456
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Combobox alphabetisch füllen

Combobox alphabetisch füllen
28.10.2015 09:52:38
Marlen
Hallo liebe Profis,
ich habe mal wieder ein VBA Problem. Anbei meine Beispieldatei.

Die Datei https://www.herber.de/bbs/user/101088.xls wurde aus Datenschutzgründen gelöscht


Ich habe in der Combobox3 Kundennamen stehen. Hier als Beispiel Buchstaben. Diese würde ich gern alphabetisch sortieren lassen. In der Tabelle direkt sortieren kann ich nicht lassen, da die Kunden in der Originaldatei an einer anderen Sortierung hängen.
Könnt ihr mir bitte mit dem Code weiterhelfen?
vG
Marlen

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

Betreff
Datum
Anwender
Anzeige
Bezogen auf...
28.10.2015 10:52:51
Case
Hallo Marlen, :-)
... Dein Beispiel so:
Option Explicit
Private Sub UserForm_Activate()
Call FillMeUp
End Sub
Private Sub FillMeUp()
Dim objSortedList As Object
Dim objArrayList As Object
Dim vntArray As Variant
Dim lngIndex As Long
On Error GoTo Fin
Set objSortedList = CreateObject("System.Collections.SortedList")
Set objArrayList = CreateObject("System.Collections.ArrayList")
With ThisWorkbook.Worksheets("Tabelle2")
vntArray = .Range("D2:D" & .Cells(.Rows.Count, 4).End(xlUp).Row)
End With
For lngIndex = 1 To UBound(vntArray)
If vntArray(lngIndex, 1)  "" Then
objSortedList(vntArray(lngIndex, 1)) = ""
End If
Next lngIndex
objArrayList.AddRange objSortedList.Keys
ComboBox3.List = objArrayList.ToArray
Fin:
If Err.Number  0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
Set objSortedList = Nothing
Set objArrayList = Nothing
End Sub
Servus
Case

Anzeige
Klasse :)
28.10.2015 12:06:13
Marlen
Vielen lieben Dank Case. Funktioniert super.

Combobox alphabetisch füllen in Abhängigkeit
29.10.2015 10:40:13
Marlen
Ich habe die Datei noch ein wenig ergänzt.
https://www.herber.de/bbs/user/101121.xls
Die beiden Comboboxen 1 und 2 füllen meine TextBox in Abhängigkeit. Jetzt soll in der Combobox 3 in Abhängigkeit die Kunden angezeigt werden. Also Kunde A und K und die noch alphabetisch sortiert. Habe das versucht in der Zuordnung von Combobox 1 und 2 zu ergänzen, bin aber kläglich gescheitert.
Könnt ihr bitte helfen? Danke.

Links zu Excel-Dialogen

ComboBox TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige