COMBOBOX distinct liste mit Bedingungen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

ich vermisse das Steuerelement.

Tabelle1

	A	B	C	D	E
1	Element	Ausschluss			Disstinct über Spalte A Wäre
2	Element 1	X			Element 1
3	Element 2				Element 2
4	Element 3	X
5	Element 2
6	Element 3	X
7	Element 1
8	Element 1				Grundlage
9					http://www.excelformeln.de/formeln.html?welcher=194

verwendete Formeln
Zelle	Formel	Bereich	R1C1 für Add In
E2	{=INDEX(A2:A32;MIN(WENN(UND(A2:A31<>"";$B$2:$B$32<>"X") ;ZEILE(2:31) ) ) ) }	$E$2	=INDEX(RC[-4]:R[30]C[-4],MIN(IF(AND(RC[-4]:R[29]C[-4]<>"",R2C2:R32C2<>"X") ,ROW(R:R[29]) ) ) )
E3:E7	{=WENNFEHLER(INDEX($A$2:$A$32;VERGLEICH(1;(ZÄHLENWENN($E$2:E2;$A$2:$A$31) =0) ($A$2:$A$31<>"") ($B$2:$B$32<>"X") ;0) ) ;"") }	$E$3	=IFERROR(INDEX(R2C1:R32C1,MATCH(1,(COUNTIF(R2C5:R[-1]C,R2C1:R31C1) =0) (R2C1:R31C1<>"") (R2C2:R32C2<>"X") ,0) ) ,"")

{} Matrixformel mit Strg+Umschalt+Enter abschließen
Matrixformeln sind durch geschweifte Klammern {} eingeschlossen
Diese Klammern nicht eingeben!!

XHTML Tabelle für Darstellung in Foren,
einschl. Bedingter Formatierung ab Version 2007
XHTML-Version 11.30 einschl 64 Bit Version

Private Sub UserForm_Initialize() Dim Loletzte As Long ' letzte Zeile in Spalte A Dim LoI As Long ' Schleifenvariable ' unabhängig von Excelversion für Spalte A (1) Loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), _ Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) With ListBox1 .ColumnCount = 2 ' Spaltenanzahl 2 ' Spaltebreite Spalte 2 auf Null setzen .ColumnWidths = ";0 Pt" ' Werte ab Zeile 2 in ListBox eintragen For LoI = 2 To Loletzte ' prüfen ob Wert schon vorhanden If Application.WorksheetFunction.CountIf(Range(Cells(1, 1), _ Cells(LoI, 1)), Cells(LoI, 1)) = 1 And Cells(LoI, 2) "X" Then .AddItem Cells(LoI, 1) ' Wert eintragen .List(.ListCount - 1, 1) = LoI ' Zeilennummer eintragen End If Next LoI End With End Sub

Hallo Hajo,
ich meine, das wird nicht laufen ...
Wenn die Liste so aussieht:
1: Element1 x
2: Element1
dann wird aus 1 Element1 nicht eingelesen, weil es ein x hat. Aus 2 wird Element1 aber AUCH nicht eingelesen, weil Worksheetfunction.CountIf es das zweite Mal findet!
Gefordert ist aber: Element1 einlesen, denn es kommt (in 2) ohne x das Erste mal vor!
Ich hatte den Code auch schon so aufgebaut wie du, ihn dann aber aus den o.g. Grunden verworfen.
Mein nächster Ansatz war, die Liste per Autofilter nach "nicht X" zu filtern und dann nur die specialcells(xlCellTypeVisible) zu nehmen. Leider mag Worksheetfunction.Countif auf einen derart gefilterten Bereich nicht anspringen ...
Ich glaube, um das einlesen der Elemente ohne X in eine weitere Liste (Array oder Hilfsspalte auf dem Blatt sei mal dahingestelt) kommen wir hier nicht herum?
Grüße,
Klaus M.vdT.

Private Sub UserForm_Initialize() Dim lngZ As Long, coll As New Collection On Error Resume Next For lngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row If UCase(Cells(lngZ, 2)) "X" Then coll.Add Cells(lngZ, 1), Cells(lngZ, 1) End If Next With ComboBox1 .Clear 'Alte Inhalte der Combobox löschen For lngZ = 1 To coll.Count .AddItem coll(lngZ) Next End With End Sub

Private Sub UserForm_Initialize() Dim lngZ As Long, coll As New Collection On Error Resume Next For lngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row If UCase(Cells(lngZ, 2)) "X" Then coll.Add Cells(lngZ, 1).Value, Cells(lngZ, 1) End If Next With ComboBox1 .Clear 'Alte Inhalte der Combobox löschen For lngZ = 1 To coll.Count .AddItem coll(lngZ) Next End With End Sub

Private Sub UserForm_Initialize() Dim lngZ As Long, coll As New Collection On Error Resume Next 'Collection in Abhängigkeit des "X" in Spalte B befüllen For lngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row With Cells(lngZ, 1) If UCase(.Offset(, 1)) "X" Then coll.Add .Value, .Value End If End With Next With ComboBox1 'Combobox aus der Collection befüllen .Clear 'Alte Inhalte der Combobox löschen For lngZ = 1 To coll.Count .AddItem coll(lngZ) Next End With End Sub

Beliebteste Forumthreads (12 Monate)

COMBOBOX distinct liste mit Bedingungen

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

COMBOBOX distinct liste mit Bedingungen

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread