|
Hallo ihr Lieben,
ich habe eine Frage. Ich habe eine Userform erstellt, auf der verschiedene Parameter durch hauptsächliches auswählen durch Comboboxen ausgewählt werden sollen. Ich habe aber auch eine Textbox in die ein Wert per Hand eingegeben werden soll. Danach soll der Wert mit einer Tabelle verglichen werden. Die Tabelle besteht aus drei Spalten. Die Werte, die in der dritten Spalte stehen, sollen mit dem eingebenen Inhalt aus der Textbox vergleichen werden. Danach sollen alle Werte, die kleiner sind, als der eingegebene Wert in einer weiteren Combobox als DropdownListe ausgegeben werden. Jedoch nicht der Wert der in der Zelle steht, sondern der Inhalt, der zwei Zellen vorher (also links daneben) steht.
Zum Testen und für den Anfang habe ich das hier gefunden, damit komme ich aber noch nicht weit:
Dim Ausgabe As Range
Set Ausgabe= Worksheets("Gebauede").Range("C:C).Find(Whats:=Txt.Studentenanzahl.Text, Lookat:=xlWhole, LookInValues)
If Not Ausgabe Is Nothing Then
MsgBox "Wert gefunden"
Else
MsgBox "Wert nicht gefunden"
Also die hier angegebene MsgBox habe ich nur für mich aus Testgründen mit eingebaut.
Aber im Grunde müsste ja eine For Each Schleife eingebaut werden, denke ich.
Ich hoffe, dass das verständlich ist und nicht zu sehr verwirrt
|