Office: (Office 365) Combobox auswahl und in textboxen

Hallo Hajo
Danke für die Antwort genau das habe ich versucht aber funktioniert nicht.

Die Zeil gibt es nicht mehr die haben wir/ich geändert in

Code:

If Rafound.Offset(0, 17) = "X" Or Rafound.Offset(0, 17) = "x" Then Controls("Textbox" & InI) = Rafound.Offset(0, 1)

Wenn ich das nun so ändere

Code:

If Rafound.Offset(0, 2) <> "" Then
If UCase(Rafound.Offset(0, 17)) = "X" Then Controls("TextBox" & InI) = Rafound.Offset(0, 2)
InI = InI + 1
End If

habe ich trozdem leere TextBoxen wenn in Spalte T kein X steht.

__A______B____________C________________D____________T
1_-_____20693______170031632______498001654787_______X
2_-_____20696______170031633______498001654763_______X
3_-_____20696______170031633______498001654749_______
4_-_____20696______170031633______498001654725_______
5_-_____20696______170031633______498001654701_______X
6_-_____20696______170031633______498001654688_______X

Ich suche nach 20696 dies gibt es 5 mal in der Tabelle aber nur 3 mit X in Spalte T
Nun sollte in 3 von 10 TextBoxen die Werte so eingtragen werden.
TextBox101 = 498001654763 (Wert aus Zelle D2)
TextBox102 = 498001654749 (Wert aus Zelle D5)
TextBox103 = 498001654701 (Wert aus Zelle D6)

Der Zeit ist es aber so

TextBox101 = 498001654763 (Wert aus Spalte D)
TextBox102 = leer
TextBox103 = leer
TextBox104 = 498001654701 (Wert aus Spalte D)
TextBox105 = 498001654688 (Wert aus Spalte D)

Ich hoffe so kann man es besser verstehen.

Gruß Michael

 

Ich habe es hin bekommen.

Dank dem Vorschlag vom letzten Beitrag von Hajo habe noch etwas gemacht und getan und bin so auf die Lösung gekommen
Hier meine Lösung

Code:

If UCase(Rafound.Offset(0, 18)) = "X" Then
Controls("Textbox" & InI) = Rafound.Offset(0, 2)
InI = InI + 1
End If

danke nochmal an Hajo
Gruß Michael