Fehler findnext
23.08.2017 20:02:13
Paul
ich habe eine Userform, die eine Spalte in zwei Tabellenblättern durchsucht und bei Eingabe die Einträge in der Listbox entsprechend filter.
Klappt alles soweit, nur wenn man die Eingabe löscht kommt der Fehler
Die Findnext eigenschaft konnte nicht zugeaordnet werden...
Hier noch meine code
Private Sub Tx_Kostenstelle_Change()
Dim zuFinden As String
Dim Ergebnis1 As Range
Dim Ergebnis2 As Range
Dim Firstaddress1 As String
Dim Firstaddress2 As String
Dim AnzahlLZ As Long
Dim lZeile As Long
Dim Lastrow1 As Long
Dim Lastrow2 As Long
If lst_Kostenstelle.Tag = "sperren" Then Exit Sub
lst_Kostenstelle.Clear
If Tx_Kostenstelle = "" Then
lst_Kostenstelle.ColumnCount = 2
lst_Kostenstelle.Clear
TxBox_leer
End If
zuFinden = Tx_Kostenstelle
With Worksheets("Rotationsf.")
Lastrow1 = .Range("B" & Rows.Count).End(xlUp).Row
Set Ergebnis1 = .Range("B7:B" & Lastrow1).Find(zuFinden, , , xlPart)
If Not Ergebnis1 Is Nothing Then
Firstaddress1 = Ergebnis1.Address
Do
lst_Kostenstelle.AddItem Ergebnis1
lst_Kostenstelle.List(lst_Kostenstelle.ListCount - 1, 1) = Ergebnis1.Offset(0, 1)
Set Ergebnis1 = .Range("B7:B" & Lastrow1).FindNext(Ergebnis1)
Loop While Not Ergebnis1 Is Nothing And Ergebnis1.Address Firstaddress1
End If
End With
With Worksheets("BAZ")
Lastrow2 = .Range("C" & Rows.Count).End(xlUp).Row
Set Ergebnis2 = .Range("C7:C" & Lastrow1).Find(zuFinden, , , xlPart)
If Not Ergebnis2 Is Nothing Then
Firstaddress2 = Ergebnis2.Address
Do
lst_Kostenstelle.AddItem Ergebnis2
lst_Kostenstelle.List(lst_Kostenstelle.ListCount - 1, 1) = Ergebnis2.Offset(0, 1)
Set Ergebnis2 = .Range("C7:C" & Lastrow2).FindNext(Ergebnis2)
Loop While Not Ergebnis2 Is Nothing And Ergebnis2.Address Firstaddress2
End If
End With
End Sub
Vielen Dank für eure Hilfe Gruß Paul