Search and Find wird nur einmal durchlaufen...
03.12.2004 13:34:40
Ronny
seit einiger Zeit plagt mich ein Prob, das ich nicht so richtig lösen kann.
Das prob ist, dass der Code nur einmal durchlaufen wird, kann da vielleicht jemand helfen:
------------------------------------------------------------------------------
Function SF(key As String) As String
Dim finding As String
Dim mldg$
Dim rng As Range
Set rng = Workbooks("Warenliste.xls").Worksheets("Gesamt").Cells
Set rngF = rng.Find(key, LookIn:=xlValues).Offset(0, 3)
replay:
mldg = MsgBox("Handelt es sich hierbei um das Produkt:" & vbLf & vbLf & rngF, _
vbYesNo + vbQuestion, "SearchFunction")
If mldg = vbNo Then
Set rngF = rng.FindNext(rngF).Offset(0, 3)
GoTo replay
Else
key = rngF
End If
End Function
------------------------------------------------------------------------------
Wäre super, wenn jemand helfen kann!
mfg Ronny
Anzeige