|
Hallo,
dann so:
Voraussetzungen: Textbox für die Engabe des Suchbegriffes heißt TextBox1
Textboxen für die Ausgabe heißen Nummer1 - Nummer10
ComboBoxen für die Ausgaben heißen Combo1 - Combo10
Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet
Dim fund As String, fund1 As String
Dim such As String, LetzteZeile As Long, i As Long
Dim zähler As Long
Set wb = ThisWorkbook
Set ws1 = wb.Worksheets("Übersicht")
Set ws2 = wb.Worksheets("Daten")
zähler = 1
such = UserForm1.TextBox1.Value
With ws2
LetzteZeile = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 5 To LetzteZeile
If zähler > 10 Then
MsgBox "Mehr Treffer als Ausgabeboxen"
Exit Sub 'Ausstieg wenn mehr Treffer als Boxen
End If
If .Cells(i, 2) = such Then 'in Spalte B suchen
fund = .Cells(i, 1) 'Wert aus Fundzeile Spalte A ggf. anpassen
fund1 = .Cells(i, 3) 'Wert aus Fundzeile Spalte C ggf. anpassen
UserForm1(CStr("Nummer" & zähler)) = fund
UserForm1(CStr("Combo" & zähler)) = fund1
zähler = zähler + 1
End If
Next i
End With
If fund = "" Then
MsgBox "Suchbegriff " & such & " nicht gefunden"
UserForm1.TextBox1.SetFocus
End If
End Sub
Gruß Werner
|