Combobox2 in Abhängigkeit ComboBox1 füllen

Private Sub ComboBox1_Click() Dim auswahl As String Dim i As Integer UserForm1.ComboBox2.Clear auswahl = UserForm1.ComboBox1.Text i = 2 Do While Sheets("Eingabe").Cells(i, 1) "" If Sheets("Eingabe").Cells(i, 1) = auswahl Then UserForm1.ComboBox2.AddItem (Sheets("Eingabe").Cells(i, 2)) End If i = i + 1 Loop End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ComboBox1_Click() Dim strAuswahl As String, vntTmp(), iTmp As Integer Dim i As Integer ComboBox2.Clear strAuswahl = UserForm1.ComboBox1.Text i = 2 With Sheets("Eingabe") Do While .Cells(i, 1) "" If .Cells(i, 1) = strAuswahl And _ WorksheetFunction.CountIf(.Range(.Cells(2, 2), .Cells(i, 2)), .Cells(i, 2)) = 1 Then iTmp = iTmp + 1 ReDim Preserve vntTmp(1 To iTmp) vntTmp(iTmp) = .Cells(i, 2) End If i = i + 1 Loop End With If iTmp > 0 Then QuickSort vntTmp ComboBox2.List = WorksheetFunction.Transpose(WorksheetFunction.Transpose(vntTmp)) ComboBox2.DropDown End If End Sub

Private Sub QuickSort(ByRef VA_array, Optional V_Low1, Optional V_high1) On Error Resume Next Dim V_Low2, V_high2, V_loop As Integer Dim V_val1, V_val2 As Variant If IsMissing(V_Low1) Then V_Low1 = LBound(VA_array, 1) End If If IsMissing(V_high1) Then V_high1 = UBound(VA_array, 1) End If V_Low2 = V_Low1 V_high2 = V_high1 V_val1 = VA_array((V_Low1 + V_high1) / 2) While (V_Low2 V_val1 And _ V_high2 > V_Low1) V_high2 = V_high2 - 1 Wend If (V_Low2 V_Low1) Then Call _ QuickSort(VA_array, V_Low1, V_high2) If (V_Low2

Private Sub ComboBox1_Click() Dim strAuswahl As String, vntTmp(), iTmp As Integer Dim i As Integer ComboBox2.Clear strAuswahl = UserForm1.ComboBox1.Text i = 2 With Sheets("Adressen") Do While .Cells(i, 1) "" If .Cells(i, 1) = strAuswahl And _ WorksheetFunction.CountIf(.Range(.Cells(2, 2), .Cells(i, 2)), .Cells(i, 2)) = 1 Then iTmp = iTmp + 1 ReDim Preserve vntTmp(1 To iTmp) vntTmp(iTmp) = .Cells(i, 2) End If i = i + 1 Loop End With If iTmp > 0 Then QuickSort vntTmp 'hier wird auf das Makro ' Private Sub QuickSort' zugegriffen ComboBox2.List = WorksheetFunction.Transpose(WorksheetFunction.Transpose(vntTmp)) ComboBox2.DropDown 'ComboBox2.SetFocus End If 'ComboBox2.DropDown End Sub Private Sub QuickSort(ByRef VA_array, Optional V_Low1, Optional V_high1) On Error Resume Next Dim V_Low2, V_high2, V_loop As Integer Dim V_val1, V_val2 As Variant If IsMissing(V_Low1) Then V_Low1 = LBound(VA_array, 1) End If If IsMissing(V_high1) Then V_high1 = UBound(VA_array, 1) End If V_Low2 = V_Low1 V_high2 = V_high1 V_val1 = VA_array((V_Low1 + V_high1) / 2) While (V_Low2 V_val1 And _ V_high2 > V_Low1) V_high2 = V_high2 - 1 Wend If (V_Low2 V_Low1) Then Call _ QuickSort(VA_array, V_Low1, V_high2) If (V_Low2 Mein Problem ist aber immer noch das sich bei Auswahl eines Eintrages aus ComboBox1 die ComboBox2 nicht automatisch öffnet. (sondern immer erst mit Klick auf das Dreieck) dieses Problem wird auch durch die CodeZeile ComboBox2.DropDown so wie das Rudi beschrieben hat nicht behoben. Geht das überhaupt oder ist es generell nicht möglich in einer UserForm zwei ComboBox gleichzeitig offen zu halten? Was könnte man sonst noch als Lösung tun? Nochmals Danke an alle die sich an meinem Problem beteiligen Gruß Andreas

Hallo Excelfreunde
Jetzt habe ich noch ein Problem
Das mit der ComboBox2 habe ich mit einer ListBox hinbekomen
Jetzt habe ich aber noch folgendes Problem,
die Datensätze aus meiner Tabelle Adressen welche ich durch Auswahl in der ListBox1 wähle sollen in die entsprechenden TextBox in der User Form geschrieben werden.
Wie müsste ich das Makro dahingehend noch ändern?


Private Sub ComboBox1_Click()
'füllt die ComboBox1 und ListBox1 mit den Datensätzen
Dim strAuswahl As String, vntTmp(), iTmp As Integer
Dim i As Integer
'ComboBox2.Clear
ListBox1.Clear
strAuswahl = UserForm1.ComboBox1.Text
i = 2
With Sheets("Adressen")
Do While .Cells(i, 1)  ""
If .Cells(i, 1) = strAuswahl And _
WorksheetFunction.CountIf(.Range(.Cells(2, 2), .Cells(i, 2)), .Cells(i, 2)) = 1 Then
iTmp = iTmp + 1
ReDim Preserve vntTmp(1 To iTmp)
vntTmp(iTmp) = .Cells(i, 2)
End If
i = i + 1
Loop
End With
If iTmp > 0 Then
QuickSort vntTmp    'hier wird auf das Makro '

Private Sub QuickSort' zugegriffen
'ComboBox2.List = WorksheetFunction.Transpose(WorksheetFunction.Transpose(vntTmp))
ListBox1.List = WorksheetFunction.Transpose(WorksheetFunction.Transpose(vntTmp))
'hier sollen jetzt anhand des entsprechend gewählten Eintrages aus der ListBox1
'die Daten aus der Tabelle "Adressen" dementsprechend in die TextBox'en übernommen werden
'so wie der Code ab hier läuft funktioniert das aber nicht
'wie muß das geändert werden, bzw. an welche Stelle muß die Code Zeilen einfügen
'damit der die Auswahl aus ListBox1 in die TextBox geschrieben wird
Dim r%
'ListBox1.Clear
r = ListBox1.ListIndex + 3
ListBox1.Text = Sheets("Adressen").Cells(r, 2) 'Leistung für:
TextBox1.Text = Cells(r, 1)       'Eingabe Kategorie
TextBox16.Text = Cells(r, 2)      'Eingabe Unterkategorie
TextBox17.Text = Cells(r, 3)      'Eingabe Betreff Zeile
TextBox15.Text = Cells(r, 4)      'Eingabe Textbaustein
TextBox14.Text = Cells(r, 5)      'ID.Nr.
End If
End Sub




Private Sub QuickSort(ByRef VA_array, Optional V_Low1, Optional V_high1)
On Error Resume Next
Dim V_Low2, V_high2, V_loop As Integer
Dim V_val1, V_val2 As Variant
If IsMissing(V_Low1) Then
V_Low1 = LBound(VA_array, 1)
End If
If IsMissing(V_high1) Then
V_high1 = UBound(VA_array, 1)
End If
V_Low2 = V_Low1
V_high2 = V_high1
V_val1 = VA_array((V_Low1 + V_high1) / 2)
While (V_Low2  V_val1 And _
V_high2 > V_Low1)
V_high2 = V_high2 - 1
Wend
If (V_Low2  V_Low1) Then Call _
QuickSort(VA_array, V_Low1, V_high2)
If (V_Low2 


Vielen Dank nochmals

Ich hoffe nur das ich mich dabei noch an die Forum-Regeln halte

Gruß Andreas

Private Sub UserForm_Initialize() Dim ixCol As Integer Dim ixRow As Long Dim ixRowS As Long Dim ixRowE As Long Dim ixList As Integer ixList = 0 ixCol = 1 ' Column of ListRange (e.g. C = 3)auf 1 A abgeändert ixRowS = 3 ' RowStart of ListRange ixRowE = 2000 ' RowEnd of ListRange ComboBox1.Clear ComboBox1.AddItem ActiveSheet.Cells(ixRowS, ixCol).Value For ixRow = ixRowS + 1 To ixRowE If Not IsEmpty(ActiveSheet.Cells(ixRow, ixCol).Value) Then For ixList = 0 To ComboBox1.ListCount - 1 If UCase(ComboBox1.List(ixList)) = UCase(ActiveSheet.Cells(ixRow, ixCol).Value) _ Then Exit For If UCase(ComboBox1.List(ixList)) > UCase(ActiveSheet.Cells(ixRow, ixCol).Value) _ Then ComboBox1.AddItem ActiveSheet.Cells(ixRow, ixCol).Value, ixList Exit For End If Next ixList If ixList = ComboBox1.ListCount Then If UCase(ComboBox1.List(ixList - 1))

Beliebteste Forumthreads (12 Monate)

Combobox2 in Abhängigkeit ComboBox1 füllen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Combobox2 in Abhängigkeit ComboBox1 füllen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread