Hi,
trotz folgendem Code kommt bei einem nicht gefundenen Begriff das Debuggen Fenster "Objektblockvariable nicht festgelegt" - Wieso?
Dim artikel
artikel = Cells(bz, 29)
Application.ScreenUpdating = False
On Error GoTo LÜ
Sheets("Bedarf_bis_0307").Select
Cells.Find(What:=Left((artikel), 10), After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart).Activate
LÜ:
Gruß
otto