.Find nächsten Eintrag
07.01.2021 13:46:32
Tim
ich habe eine Userform mit einer Textbox, deren Inhalt in der Tabelle gesucht werden soll. Die Ergebnisse dazu soll er mir in einer Listbox ausgeben, das funktioniert soweit.
Ich möchte zu dem Suchkriterium aus der Textbox, ein weiteres Kriterium prüfen. Heißt, ich möchte alle Ergebnisse ausgeben haben, die in Spalte "N" keinen Eintrag haben (leer sind), wie erreiche ich das?
Private Sub EAN_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim sheet As Worksheet
Dim rngCell As Range
Dim strFirstAddress As String
Set sheet = Thisworkbook.Worksheets("Ergebnis")
If KeyCode = 13 Then
If EAN.Value "" Then
With sheet.Range("H:H")
UserForm5.Übersicht.Clear
Set rngCell = .Find(UserForm5.EAN.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not rngCell Is Nothing And rngCell.Offset(0, 7) = "" Then
strFirstAddress = rngCell.Address
Do
With UserForm5.Übersicht
.AddItem
.List(.ListCount - 1, 0) = rngCell.Row
.List(.ListCount - 1, 1) = rngCell.Offset(0, -6).Value
.List(.ListCount - 1, 2) = rngCell.Offset(0, -1).Value
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address strFirstAddress
Else
End If
End With
End If
End If
End Sub