Range(cells(),cells()) und .find
24.08.2007 14:14:13
Knut
Ich verstehe nicht warum bei der find methode in meinem projekt nur ein Rangeobjekt der Form Range("a1:a10") zul. ist. Im angegebenen Beispiel bekomme ich immer Objekterror wegen: "Range(cells(),cells())"
mein Problem ist nun, dass ich aber auch die Spalte veraenderlich haben muss, da ich das Objekt in einer Schleife einer Userform ausfuehre. Die Ausfuehrung muss ausserdem schnell sein, da eine große Anzahl an wiederholungen durchgefuehrt wird.
With Worksheets("Rwblatt")
Set rngf = .Range(Cells(zeile, materialspalte), Cells(ll, materialspalte)).Find(What:= _
_
ListBox1.List(j, 0), LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not rngf Is Nothing Then
ListBox1.List(j, 1) = .Cells(rngf.Row, kurztextspalte).Value
End If
End With
Weiß jemand eine Loesung / kennt daas Problem ?
Gruß,
Knut