ich hoffe mir kann jemand helfen.
Ich habe ein Suchbegriff (der auch öfters auftreten kann), der in der Mappe "Gesamt gesucht wird. Wenn der Suchbegriffe in einer Excel-Mappe gefunden wird, sollen die Werte in der Zeile wo er gefunden wird in eine Listbox geschrieben werden.
Die Suchfunktion funktioniert, aber ich bekomme es nicht hin die Werte in die Listbox zu schreiben. Ich bekomme immer eine Fehlermeldung und ich weiß nicht wie ich es sonst lösen soll:
Private Sub btnSuchen_Click()
Dim rngCell As Range
Dim m_stAddress As String
Dim InI As Integer
Dim InZeile As Integer
With ListBox1
.ColumnCount = 3
.ColumnWidths = "2cm;1cm;4cm"
End With
With Sheets("Gesamt")
InZeile = 2
Set rngCell = Rows.Find(txtSuche, LookIn:=xlValues, lookAt:=xlWhole, MatchCase:=False)
If Not rngCell Is Nothing Then
m_stAddress = rngCell.Address
Do
Set rngCell = Rows.FindNext(rngCell)
InI = rngCell.Row
ListBox1.AddItem .Range("A" & InI)
ListBox1.List(InZeile, 1).AddItem.Range ("G" & InI)
ListBox1.List(InZeile, 2).AddItem.Range ("D" & InI)
ListBox1.List(InZeile, 3).AddItem.Range ("AV" & InI)
InZeile = InZeile + 1
Loop While Not rngCell Is Nothing And rngCell.Address m_stAddress
Else
MsgBox "Suchbegriff wurde nicht gefunden"
End If
End With
End Sub
Vorab vielen Dank für Eure Unterstützung