.find Probleme
22.02.2019 16:52:40
Tim
ich habe eine Combobox, deren Auswahl in einem Tabellenblatt gesucht werden soll.
leere ich die Combobox, dann rechnet er ewig, da ich das Gefühl habe, dass er bei Combobox leer alle leeren Zeilen durchsucht...!?
Welche Möglichkeiten gibt es, den Wert nur zu suchen wenn die Combobox nicht leer ist bzw. gibt es effizientere Codes zu .find!?
Sub Artikelauswahl()
Dim rngCell As Range
Dim strFirstAddress As String
With ThisWorkbook.Worksheets("Logistik").Range("B:B")
UserForm1.Vorauswahl.Clear
Set rngCell = .Find(UserForm1.Unterkategorie.Value, LookIn:=xlValues, LookAt:=xlWhole) If Not _
rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With UserForm1. .AddItem
.List(.ListCount - 1, 0) = rngCell.Row 'Zeilennummer in der sich der Eintrag befindet = _
eindeutige Zuordnung wenn z.B. Bezeichnung doppelt vorkommt
.List(.ListCount - 1, 1) = rngCell.Offset(0, 1).Value
.List(.ListCount - 1, 2) = rngCell.Offset(0, 2).Value
.List(.ListCount - 1, 3) = rngCell.Offset(0, 3).Value
.List(.ListCount - 1, 4) = rngCell.Offset(0, 4).Value
.List(.ListCount - 1, 5) = rngCell.Offset(0, 6).Value
.List(.ListCount - 1, 6) = rngCell.Offset(0, 7).Value
.List(.ListCount - 1, 7) = rngCell.Offset(0, 13).Value
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address strFirstAddress
Else
MsgBox "Equipment nicht gefunden"
End If
End With
End Sub