ComoBox befüllen mit 2 Kriterien
02.08.2005 10:56:36
Werner
Auf eine UsreForm habe ich eine ComboBox, die ich beim Aktivieren der UsreForm mit Daten aus der Spalte A ab Zelle A2 befüllen lasse.
Ich möchte aber nun noch eine 2. Abfrage dazu haben.
Es soll wie bisher in Spalte A nachgesehen werden ob Einträge vorhanden sind.
Danach soll nachgesehen werden ob in Spalte N in der Selben Zeile ein Eintrag steht, wenn ja, soll die Zeile in der ComboBox nicht angezeigt werden.
Me.cboFertigmeldung.Clear
Dim SW As Range
Set SW = Sheets("Maschinen_Eingaben").[A2]
While SW <> ""
'holt die Werte ZeiNummer / AufNummer / Datum in die Box vom Blatt Ergebnis
Me.cboFertigmeldung.AddItem SW & " / " & SW.Offset(0, 1) & " / " & SW.Offset(0, 4) & " / " & SW.Offset(0, 5) _
& " / " & SW.Offset(0, 6) & " / " & SW.Offset(0, 7)
Set SW = SW.Offset(1, 0)
Wend
Gruss Werner