ich habe folgenden - bisher funktionierenden - Code zum Suchen eines bestimmten Wertes innerhalb eines def. Bereichs:
Set WkSh = ThisWorkbook.Sheets("Suchwerte")
With WkSh.Cells
Set rZelle = .Range(WkSh.Cells(2, 1), WkSh.Cells(ersteZelleoDaten(Sheets("Suchwerte"), 1) _
- 1), 6).find(Me.txt_find.Value, LookAt:=xlPart, LookIn:=xlValues)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
Me.lbox_find.AddItem " "
Me.lbox_find.List(lLiBox, 0) = WkSh.Cells(rZelle.Row, 1).Value
Me.lbox_find.List(lLiBox, 1) = WkSh.Cells(rZelle.Row, 2).Value
Me.lbox_find.List(lLiBox, 2) = WkSh.Cells(rZelle.Row, 3).Value
Me.lbox_find.List(lLiBox, 3) = WkSh.Cells(rZelle.Row, 4).Value
Me.lbox_find.List(lLiBox, 4) = WkSh.Cells(rZelle.Row, 5).Value
lLiBox = lLiBox + 1
Set rZelle = .FindNext(rZelle)
Loop While Not rZelle Is Nothing And rZelle.Address sFundst
End If
End With
Ich habe irgendwas daran geändert, weiß aber nicht mehr was - jetzt erhalte ich für Set rZelle = ... die Fehlermeldung:Fehler beim Kompilieren:
Falsche Anzahl an Argumenten oder ungültige Zuweisung einer Eigenschaft.
Könnt Ihr mir kurz helfen, wo der Fehler liegt?
Danke Euch!