Laufzeitfehler 9
09.12.2019 08:53:34
Stefan
ich steh mal wieder vor einem Problem und bin zu doof/unwissend dafür...
Im Nachfolgenden Code versuche ich mittels der Textbox_Suche in dem Bereich B-H alles herauszufiltern, was meinem Text entspricht, dieser soll dann in der Listbox angezeigt werden.
With ListBox1
.Clear
.ColumnCount = 7
.ColumnWidths = "2,5cm;2,5cm;2,5cm;2,5cm;2,5cm;2,5cm;2,5cm"
With ThisWorkbook.Worksheets("Bücher")
Set objCell = .Columns("B:H").Find(What:=TextBox_Suche.Text, _
LookIn:=clValues, LookAt:=xlWhole, MatchCase:=True)
If Not objCell Is Nothing Then
strFirstAddress = objCell.Address
Do
ListBox1.AddItem
ListBox1.List(ilibo, 0) = .Range("B" & objCell.Row).Value
ListBox1.List(ilibo, 1) = .Range("C" & objCell.Row).Value
ListBox1.List(ilibo, 2) = .Range("D" & objCell.Row).Value
ListBox1.List(ilibo, 3) = .Range("E" & objCell.Row).Value
ListBox1.List(ilibo, 4) = .Range("F" & objCell.Row).Value
ListBox1.List(ilibo, 5) = .Range("G" & objCell.Row).Value
ListBox1.List(ilibo, 6) = .Range("H" & objCell.Row).Value
ilibo = ilibo + 1
Set objCell = Columns("B:H").FindNext(After:=objCell)
Loop Until objCell.Adress = strFirstAddress
End If
End With
End With
Set objCell = .Columns("B:H").Find(What:=TextBox_Suche.Text, _
LookIn:=clValues, LookAt:=xlWhole, MatchCase:=True)
Hat jemand eine Ahnung an was es liegen könnte?
Gruß Stefan
