cell.find 91 Objektvariable Withvariable
02.11.2005 16:31:40
Hartmut_M
Mit dem nachfolgenden Code funktioniert es bis etwa zur 5 Abfrage, dann kommt der Fehlerhinweis: 91 Objektvariable oder With-Blockvariable nicht festgelegt.
Ich fionde alelrdings keinen Fhler in meinem Code. Verwunderlich ist auch, dass die ersten Suchläufe durchgehen. Kann mir bitte jemand weiterhelfen?
Gruß Hartmut
Sub vergleichen()
On Error GoTo fehler
Dim kreditor As Variant
Sheets("i-nadis").Select
Range("C3").Select
10:
kreditor = ActiveCell.Value
If kreditor = "" Then Exit Sub
Sheets("Handwerker").Select
Range("B2").Select
Cells.Find(What:=kreditor, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Sheets("i-nadis").Select
Selection.Interior.ColorIndex = 4
20:
ActiveCell.Offset(1, 0).Activate
GoTo 10
fehler:
Sheets("i-nadis").Select
Selection.Interior.ColorIndex = 3
GoTo 20
End Sub