Probleme mit der UserForm Suchmaske
Fredy
Wo bitte ist in dem Code eine Zellen Begrenzung wen ich das userform aufrufe kommt meine suchmaske wen ich dort eine Sorte Nummer ein gib zeigt es mir alle Einträge unter der Sorten Bezeichnung an nur zeig es mir nur 9 von insgesamt 26 Zellen an
End Sub
Private Sub cmdSearch_Click()
Dim rng As Range
Dim sFirst As String
Dim sFind As String
Dim sMod As XlLookAt
Dim n As Integer, aa As Integer
If txtSearch = "" Then Exit Sub
ListBox1.Clear
'Listbox leeren
'Überschriftenzeile
ListBox1.AddItem Sheets("Checkliste Engabe").Cells(2, 1)
For n = 1 To 8
ListBox1.List(aa, n) = Sheets("Checkliste Engabe").Cells(2, n + 1)
Next
aa = aa + 1
sFind = txtSearch
'Suchmodus
If chkMod Then
sMod = xlWhole
Else
sMod = xlPart
End If
'Suchen
Set rng = Sheets("Checkliste Engabe").Cells.Find(What:=sFind, LookIn:=xlValues, LookAt:=sMod)
If Not rng Is Nothing Then
sFirst = rng.Address
Do
ListBox1.AddItem Sheets("Checkliste Engabe").Cells(rng.Row, 1)
For n = 1 To 8
ListBox1.List(aa, n) = Sheets("Checkliste Engabe").Cells(rng.Row, n + 1)
Next
aa = aa + 1
'weitersuchen bis zur ltzten Fundstelle
Set rng = Sheets("Checkliste Engabe").Cells.FindNext(rng)
Loop While rng.Address sFirst
End If
End Sub
Private Sub ListBox1_AfterUpdate()
'Auswählen der Überschriftzeile verhindern
If ListBox1.Selected(0) = True Then ListBox1.Selected(0) = False
End Sub
Private Sub txtSearch_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'Suche mit ENTER in der Textbox starten
If KeyCode = 13 Then cmdSearch_Click
End Sub