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
End
If
If
.Cells(i, 2) = such
Then
fund = .Cells(i, 1)
fund1 = .Cells(i, 3)
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