Office: (Office 365) Combobox auswahl und in textboxen

Hallo alle zusammen.

Ich habe eine Userform mit einer Combobox und 10 Textboxen.
Die Combobox wird mit werten aus Tabelle "Auftragsarchiv" wie folgt gefüllt.
Die Werte können auch mehrfach vorkommen.

Code:

Private Sub UserForm_Initialize()
Dim X As Variant, WS As Worksheet
Set WS = Worksheets("Auftragsarchiv")
With WS
For X = 2 To WS.[b65536].End(xlUp).Row
If WorksheetFunction.CountIf(WS.Range("B2:B" & X), WS.Cells(X, 2)) = 1 Then
With ComboBox1
If WS.Cells(X, 20) = "X" Or WS.Cells(X, 20) = "x" Then .AddItem WS.Cells(X, 2).Value
If WS.Cells(X, 20) = "X" Or WS.Cells(X, 20) = "x" Then .List(.ListCount - 1, 1) = WS.Cells(X, 3).Value
If WS.Cells(X, 20) = "X" Or WS.Cells(X, 20) = "x" Then .List(.ListCount - 1, 2) = WS.Cells(X, 54).Value
If WS.Cells(X, 20) = "X" Or WS.Cells(X, 20) = "x" Then .List(.ListCount - 1, 3) = WS.Cells(X, 56).Value
End With
End If
Next
End With
End Sub

Wenn nun die Werte mehrfach vorkommen, sollen nur die ersten 10 Werte von Spalte D in die 10 Textboxen eingtragen werden. Sollten es mehr als 10 spielt es keine rolle da beim schreiben in die Tabelle das "X" in spalte T gelöscht wird und später nicht mehr geladen werden.

Wer könnte mir da mal helfen wie ich das mit dem laden der textboxen hin bekomme?

Danke schon mal vorab für die hilfe.


Gruß Michael

 

Als Beispiel
suchen und finden In die textBoxen
__A______B____________C________________D
1_-_____20693______170031632______498001654787
2_-_____20696______170031633______498001654763
3_-_____20696______170031633______498001654749
4_-_____20696______170031633______498001654725
5_-_____20696______170031633______498001654701
2_-_____20696______170031633______498001654688

Ich suche nach 20696 dies gibt es 5 mal in der Tabelle
Nun sollte in 5 von 10 TextBoxen die Werte so eingtragen werden.
TextBox101 = 498001654763 (Wert aus Spalte D)
TextBox102 = 498001654749 (Wert aus Spalte D)
TextBox103 = 498001654725 (Wert aus Spalte D)
TextBox104 = 498001654701 (Wert aus Spalte D)
TextBox105 = 498001654688 (Wert aus Spalte D)

Gruß Michael

 

Hallo Michael,

ich bnaue keine Datei nach, die Zeit hat schon jemand investiert.
Darum meine Antwort in Deinem Stil, für meine Datei.

Option Explicit

Sub Find_mehrmals()
'**************************************************
'* H. Ziplies *
'* 29.03.2020 *
'* erstellt von HajoZiplies@WEB.de Spam *
'* Homeseite - Hajo's Excelseiten *
'**************************************************
Dim Rafound As Range
Dim StAdresse As String
With Worksheets("Projekte")
Set Rafound = .Columns(4).find("Ha", .Range("D1"), , xlPart, , xlNext)
' xlPart enthalten
' xlWhole kompletter Vergleich
If Not Rafound Is Nothing Then
MsgBox Rafound.Address
StAdresse = Rafound.Address ' erste Adresse merken
Do ' Such wiederholen
Set Rafound = .Columns(4).FindNext(Rafound)
If Not Rafound Is Nothing Then
If StAdresse = Rafound.Address Then
Exit Do ' erstes Ergebniszelle
Else
MsgBox Rafound.Address
End If
End If
Loop
End If
End With
Set Rafound = Nothing
End Sub

 

Hallo Hajo

Danke für die Antwort, nur leider komme ich mit dem Code von Dir nicht wirklich klar. Ich habe mal eine Testmappe erstellt und die hier Hochgeladen.

Gruß Michael

 

Hallo Maicheal,

ich kann Dir Leider nicht Helfen, da ich die ConBox nicht finden konnte.
Vioelleicht findet sie jemand anderes.
Viel Erfolg noch.

Gruß Hajo

 

Hallo Hajo

Button "Rechnung erstellen" auf dem Tabellenblatt Rechnung oder Command Button auf dem Tabellenblatt "Auftragsarchiv".
Die ComboBox ist dann in der UserForm oben rechts steht auch drüber hier "Hier Auswählen"

Habe die userForm etwas kleiner gemacht vieleicht sieht man jetzt alles.
Gruß Michael

 

Hallo Michael,

Private Sub ComboBox1_Change()
Dim InI As Integer
InI = 101
If ComboBox1 <> "" Then
'**************************************************
'* H. Ziplies *
'* 12.01.2021 *
'* erstellt von HajoZiplies@WEB.de Spam *
'* Homeseite - Hajo's Excelseiten *
'**************************************************
Dim Rafound As Range
Dim StAdresse As String
With Worksheets("Auftragsarchiv")
Set Rafound = .Columns(2).Find(ComboBox1 * 1, .Range("B1"), , xlPart, , xlNext)
' xlPart enthalten
' xlWhole kompletter Vergleich
If Not Rafound Is Nothing Then
'MsgBox Rafound.Address
Controls("Textbox" & InI) = Rafound.Offset(0, 2)
InI = InI + 1
StAdresse = Rafound.Address ' erste Adresse merken
Do ' Such wiederholen
Set Rafound = .Columns(2).FindNext(Rafound)
If Not Rafound Is Nothing Then
If StAdresse = Rafound.Address Then
Exit Do ' erstes Ergebniszelle
Else
'MsgBox Rafound.Address
Controls("Textbox" & InI) = Rafound.Offset(0, 2)
InI = InI + 1
End If
End If
If InI = 110 Then
Exit Do
End If
Loop
End If
End With
Set Rafound = Nothing
End If
End Sub


Heute ist Feierabend.

Gruß Hajo

 

Guten morgen Hajo

vielen Dank klappt wunderbar.

Gruß Michael

 

Ich nochmal

Frage wie kann ich noch ein Bedinung einbauen das die TextBox nur mit dem Wert gefüllt wird wenn in Spalte T ein "x" oder "X" steht.

Gruß Michael

 

Habe es so hin bekommen habe den Code so angepasst

Code:

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

Gruß Michael

 

If Ucase(Rafound.Offset(0, 17) )= "X" Then

Gruß Hajo

 

Hallo Hajo
Danke wusste nicht mir wie das war mit groß und klein schreibung.

Nun habe ich doch ein Problemchen.
Wie bekomme ich es hin das ich dazwischen keine leeren Textboxen habe. Ist mir gerade erst aufgefallen.

Gruß Michael

 

If Rafound.Offset(0,2)<>"" then
Controls("Textbox" & InI) = Rafound.Offset(0, 2)
Ini=ini+1
End if

Gruß Hajo

 

Hallo Hajo

Könntest Du mir bitte noch veraten wo das genau hin muss.

Danke

Gruß Michael

 

habe ich den Code falsch gelese?
Gibt es die Zeile
Controls("Textbox" & InI) = Rafound.Offset(0, 2)
nicht?
Ich kann Die da nicht weiter helfen und bin raus.

Viel erfolg noch

Gruß Hajo