Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
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

Abhängige Comboboxen alphabetisch sortiert

Abhängige Comboboxen alphabetisch sortiert
30.10.2015 11:26:58
Marlen
Hallo Profis,
Case hat mir in diesem Beitrag schon gut geholfen meine Combobox alphabetisch zu füllen:
https://www.herber.de/forum/archiv/1452to1456/1454917_Combobox_alphabetisch_fuellen.html
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, die zum jeweiligen Gebiet gehören. Also Kunde A und K zum Gebiet NO 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.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abhängige Comboboxen alphabetisch sortiert
30.10.2015 18:09:43
Nepumuk
Hallo,
so?
Private Sub UserForm_Initialize()
    Dim dicGebiet As Object
    Dim dicLeistung As Object
    Dim arr
    Dim z As Long
    
    Set dicGebiet = CreateObject("scripting.dictionary")
    Set dicLeistung = CreateObject("scripting.dictionary")
    Set dicTarif = CreateObject("scripting.dictionary")
    
    arr = Sheets("Tabelle2").Cells(1, 1).CurrentRegion.Value
    For z = 2 To UBound(arr, 1)
        dicGebiet(arr(z, 1)) = 0
        dicLeistung(arr(z, 2)) = 0
        dicTarif(arr(z, 1) & "|" & arr(z, 2)) = arr(z, 3)
    Next
    
    ComboBox1.List = dicGebiet.Keys
    ComboBox2.List = dicLeistung.Keys
    
    ComboBox3.List = GetSortedContent(Worksheets("Tabelle2"), 4, 2)
    
End Sub

Private Function GetSortedContent(ByRef probjWorksheet As Worksheet, _
        ByVal pvlngColumn As Long, ByVal pvlngStartRow As Long) As Variant
    
    Dim objSortedList As Object, objArrayList As Object
    Dim lngIndex As Long
    Dim vntArray As Variant
    
    Set objSortedList = CreateObject(Class:="System.Collections.SortedList")
    Set objArrayList = CreateObject(Class:="System.Collections.ArrayList")
    
    With probjWorksheet
        vntArray = .Range(.Cells(pvlngStartRow, pvlngColumn), .Cells( _
            .Rows.Count, pvlngColumn).End(xlUp)).Value2
    End With
    
    For lngIndex = 1 To UBound(vntArray)
        objSortedList(vntArray(lngIndex, 1)) = vbNullString
    Next
    
    Call objArrayList.AddRange(objSortedList.Keys)
    
    GetSortedContent = objArrayList.ToArray
    
    Set objSortedList = Nothing
    Set objArrayList = Nothing
    
End Function

Gruß
Nepumuk

Anzeige
AW: Abhängige Comboboxen alphabetisch sortiert
30.10.2015 18:29:14
Nepumuk
Hallo,
nachdem ich deine Frage nochmal gelesen hatte, fiel mir auf dass ich die Abhängigkeit vergessen habe. Also:
Option Explicit

Dim dicTarif As Object

Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex > -1 Then _
        ComboBox3.List = GetSortedContent(Worksheets("Tabelle2"), 2, ComboBox1.Text)
End Sub

Private Sub ComboBox1_Click()
    TextBox1.Text = dicTarif(ComboBox1.Text & "|" & ComboBox2.Text)
End Sub

Private Sub ComboBox2_Click()
    TextBox1.Text = dicTarif(ComboBox1.Text & "|" & ComboBox2.Text)
End Sub

Private Sub UserForm_Initialize()
    Dim dicGebiet As Object
    Dim dicLeistung As Object
    Dim arr
    Dim z As Long
    
    Set dicGebiet = CreateObject("scripting.dictionary")
    Set dicLeistung = CreateObject("scripting.dictionary")
    Set dicTarif = CreateObject("scripting.dictionary")
    
    arr = Sheets("Tabelle2").Cells(1, 1).CurrentRegion.Value
    For z = 2 To UBound(arr, 1)
        dicGebiet(arr(z, 1)) = 0
        dicLeistung(arr(z, 2)) = 0
        dicTarif(arr(z, 1) & "|" & arr(z, 2)) = arr(z, 3)
    Next
    
    ComboBox1.List = dicGebiet.Keys
    ComboBox2.List = dicLeistung.Keys
    
End Sub

Private Function GetSortedContent(ByRef probjWorksheet As Worksheet, _
        ByVal pvlngStartRow As Long, ByVal pvstrValue As String) As Variant
    
    Dim objSortedList As Object, objArrayList As Object
    Dim lngIndex As Long
    Dim vntArray As Variant
    
    Set objSortedList = CreateObject(Class:="System.Collections.SortedList")
    Set objArrayList = CreateObject(Class:="System.Collections.ArrayList")
    
    With probjWorksheet
        vntArray = .Range(.Cells(pvlngStartRow, 1), .Cells( _
            .Rows.Count, 4).End(xlUp)).Value2
    End With
    
    For lngIndex = 1 To UBound(vntArray)
        If vntArray(lngIndex, 1) = pvstrValue Then _
            objSortedList(vntArray(lngIndex, 4)) = vbNullString
    Next
    
    Call objArrayList.AddRange(objSortedList.Keys)
    
    GetSortedContent = objArrayList.ToArray
    
    Set objSortedList = Nothing
    Set objArrayList = Nothing
    
End Function

Gruß
Nepumuk

Anzeige
AW: Abhängige Comboboxen alphabetisch sortiert
02.11.2015 07:47:30
Marlen
Hallo Nepumuk,
vielen Dank für deine Antwort. Habe es jetzt probiert. Der Code bricht bei:
With probjWorksheet
vntArray = .Range(.Cells(pvlngStartRow, pvlngColumn), .Cells( _
.Rows.Count, pvlngColumn).End(xlUp)).Value2
ab, und meckert mir an: "Ein Objekt erforderlich".
Da ich leider den Code selbst nicht ganz durchdenken kann, weiß ich leider nicht woran es liegt.

Einfache Sortiermethode für kleiner Datenmengen
02.11.2015 09:06:38
Daniel
Hi Marlen
probier mal folgenden Code:
Dim dicTarif As Object
Private Sub ComboBox1_Click()
TextBox1.Text = dicTarif(ComboBox1.Text & "|" & ComboBox2.Text)
Call WerteFürCombobox3Sortiert
End Sub
Private Sub ComboBox2_Click()
TextBox1.Text = dicTarif(ComboBox1.Text & "|" & ComboBox2.Text)
Call WerteFürCombobox3Sortiert
End Sub
Private Sub userform_initialize()
Dim dicGebiet As Object
Dim dicLeistung As Object
Dim arr
Dim z As Long
Set dicGebiet = CreateObject("scripting.dictionary")
Set dicLeistung = CreateObject("scripting.dictionary")
Set dicTarif = CreateObject("scripting.dictionary")
arr = Sheets("Tabelle2").Cells(1, 1).CurrentRegion.Value
For z = 2 To UBound(arr, 1)
dicGebiet(arr(z, 1)) = 0
dicLeistung(arr(z, 2)) = 0
dicTarif(arr(z, 1) & "|" & arr(z, 2)) = arr(z, 3)
Next
ComboBox1.List = dicGebiet.keys
ComboBox2.List = dicLeistung.keys
a = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
Call WerteFürCombobox3Sortiert
End Sub
Private Sub WerteFürCombobox3Sortiert()
Dim zL As Long
Dim zC As Long
Dim GesamtListe
Dim Gebiet As String
Dim Leistung As String
GesamtListe = Sheets("Tabelle2").Cells(1, 1).CurrentRegion.Value
Gebiet = ComboBox1.Text
Leistung = ComboBox2.Text
With ComboBox3
.Clear
For zL = 2 To UBound(GesamtListe, 1)
If GesamtListe(zL, 1) = Gebiet Or Gebiet = "" Then
If GesamtListe(zL, 2) = Leistung Or Leistung = "" Then
For zC = 0 To .ListCount - 1
If UCase(GesamtListe(zL, 4))
die Methode, um eine sortierte Listbox zu erstellen, ist nicht besonders schnell, dafür aber sehr einfach und sollte daher auch mit geringen VBA-Kenntnissen Verständlich sein.
Beim Befüllen der Listbox wird diese, wenn bereits Werte vorhanden sind, diese in einer Schleife durchlaufen und geprüft, ob der einzufügende Wert kleiner ist, als der aktuelle Wert aus der Liste und wenn ja, wird er vor diesem Wert eingefügt.
Gruß Daniel

Anzeige
AW: Einfache Sortiermethode ....
04.11.2015 11:52:13
Marlen
Hallo Daniel,
in meiner Testdatei funktioniert das alles prima. Jetzt habe ich es versucht in das eigentliche Original zu übernehmen. Da bringt er mir jetzt Laufzeitfehler 13 Typenunverträglichkeit. Leider markert er mir auch nicht an, wo er Probleme hat. Das Userform wird genau wie in der Testdatei aufgerufen, nur das ich im Arr nur das Gebiet abfrage. Die Leistung spielt keine Rolle. Habt ihr noch eine Idee, wo ich da was falsch mache?

AW: Einfache Sortiermethode - Ergänzung
04.11.2015 11:55:11
Marlen
Wenn ich statt userform_initialize () userform activate () Kommt der Fehler nicht, dafür meckert er mir dann das For z= 2 to UBound (arr,1) an.

Anzeige
AW: Einfache Sortiermethode - Ergänzung
04.11.2015 13:12:47
daniel
dann solltest du dir mal anschauen, wie arr erzeugt wird.
wahrscheinlich über arr = Range(...).Value
wenn der zellbereich bei Range(...) aus nur einer Zelle besteht, wird bei dieser Zuweisung das arr kein Array, sondern nur eine einfache Wertvariable.
Gruß Daniel

299 Forumthreads zu ähnlichen Themen

Alle Inhalte in Comboboxen löschen
Frank

Hallo!
Ich habe mehrere Comboboxen in ein Sheet eingebaut. Leider bleibt darin immer die letzte Auswahl stehen. In meiner Userform konnte ich mit "Claer all" alle Eingaben entfernen. gibt es einen solchen Befehl auch für die Comboboxen im Sheet?
Gruß Frank
15.08.2008 11:24:32
Thread-ID: 1002119
2 Beiträge
Anzeige
Spez. Dropdown-Zuordnungen in Comboboxen
Lenhard

Moin Moin Excellianer!!
Alle Ausführungen habe ich auch direkt in meine Beispieldatei reingeschrieben.
Aber hier auch noch mal:
Im Dropdown der ComboBox1 sollen als Liste die Einträge der Zeile 1 von links nach rechts aus der Tabelle1 erscheinen (Kategorie A, Kategorie B, Kategorie...
09.12.2008 11:24:55
Thread-ID: 1031295
5 Beiträge
Comboboxen Spalten Anzahl
gp

Hallo Zusammen,
ist die Anzahl der Spalten von ComboBoxen begrenzt?
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter
26.01.2009 11:08:00
Thread-ID: 1043791
5 Beiträge
Anzeige
zwei comboboxen auslesen
Dee

Hi Ihr,
Ich habe zwei Kategorien mit ComboBoxen (Deutschland, Amerika), welche bei unregelmäßige Nummer tragen
Deutschland (ComboBox 2/6/7/10/13)
Amerika (ComboBox 5/8/9/11/12)
Beide können jeweils mit yes und no belegt sein. Ich möchte mir jetzt die einzelnen Fälle in einem Te...
22.04.2009 19:14:52
Thread-ID: 1070463
8 Beiträge
Comboboxen Kuriositäten
Volti

Hallo zusammen,
habe schwere Probleme mit den Comboboxen aus der Toolbox, die wie mir scheint, nach jedem Update immer schlimmer werden.
1. Resizingprobleme: Es kommt verstärkt vor, dass der angezeigte Inhalt im Auswahlfeld nach Verlassen der Seite (z.B. kurzzeitig anderes Programm wie...
02.06.2009 10:45:10
Thread-ID: 1078566
3 Beiträge
Comboboxen formatieren
Ludicla

Hey Profis,
wie müßte ein Code aussehen der mehrere Comboboxen formatiert?
ich hab an die 100 Stück - sicher es geht auch einzelen
ich schaff keinen einfachen Code und mach alles einzeln.
Gruss Ludicla.
04.06.2009 14:58:16
Thread-ID: 1079162
7 Beiträge
Comboboxen für abhängige Auswahlen?
Claudia

Liebes Forum,
ich habe eine Tabelle mit drei Spalten. Die darin enthaltenen Infos werden von Spalte 1 zu 3 immer feiner. Z.B. steht in Spalte 1 "Wilde Tiere" und "Zahme Tiere". In Spalte 2 dann die jeweils zugehörigen Einträge "Tiger" (natürlich Wilde Tiere) und "Hase" (Zahme Tiere). Und in...
19.06.2009 09:53:10
Thread-ID: 1082797
6 Beiträge
ComboBoxen deaktivieren
Micha

Hallo zusammen,
ich habe folgende Herausforderung:
Teil 1:
In einem Tabellenblatt (Tabelle1) habe ich mehrere Comboboxen.
Wenn in der ComboBox_1 der Eintrag „ Name?“ gewählt wurde, müssen die …
ComboBox_2
ComboBox_3
ComboBox_4 … deaktiviert werden. Bei allen anderen...
19.06.2009 10:20:18
Thread-ID: 1082808
7 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
4
4
16
7
2
6
5
6
18
2
13
13
4
6
2
6
1
4
6
14
1
4
3