Office: ComboBox nur mit bestimmten Werten einer Tabelle füllen

Hallo,

für die VBA-Profis hier wird es wahrscheinlich wieder eine langweilige Anfängerfrage sein, aber ich stelle sie trotzdem.

Ich möchte das Füllen meiner ComboBox an eine Bedingung knüpfen.
Ich habe folgende Tabelle:





Nun möchte ich nur die Aufträge in die ComboBox übertragen, die den Status "Offen" in Spalte D haben.
Bisher habe ich das Füllen immer per Schleife ohne Bedingungen gemacht, wie z.B.:

For Wiederholungen = 2 To Sheets("Aufträge").Range("A65536").End(xlUp).Row
ComboBox1.AddItem Sheets("Aufträge").Cells(Wiederholungen, 1)

Wie mache ich das nun am besten mit Bedingung?

Besten Dank vorab.

Gruß

Hennes

:)

 

Hallo Hennes,

ungetestet!

Sub fillCombo()
Dim rng As Range, strFirst As String

ComboBox1.Clear

With Sheets("Aufträge")
Set rng = .Columns(4).Find(What:="Offen", LookAt:=xlWhole, LookIn:=xlValues, MatchCase:=False, After:=Range("D1"))
If Not rng Is Nothing Then
strFirst = rng.Address
Do
ComboBox1.AddItem .Cells(rng.Row, 1)
Set rng = .Columns(4).FindNext(rng)
Loop While Not rng Is Nothing And strFirst <> rng.Address
End If
End With

End Sub





« Gruß Sepp »

 

Funktioniert auf Anhieb, Sepp.

1000-Dank!

Ich werde Deinen Code mal Schritt für Schritt durchgehen um ihn auch wirklich zu verstehen. Man will ja auch was lernen und nicht nur Fragen stellen...

Danke & Gruß

Hennes