Problem bei Fehlerschleife
27.12.2006 10:01:22
Christian
ich habe ein kleines Problem bei der folgenden Prozedur.
Manteltresor_Abgang:
With Worksheets("Archiv")
Set gefunden = Worksheets("Manteltresor").Range("H10:H769").Find(Buchungsbelegnummer)
If Not Found Then MsgBox ("Bestand nicht gefunden !"): Exit Sub
gefunden.EntireRow.Cut
.Cells(.Rows.Count, "C").End(xlUp).Offset(1, 0).EntireRow.Insert
Set gefunden = Worksheets("Archiv").Range("L11:L769").Find("")
gefunden = Datum
End With
Ich vermute ich habe "If Not Found..." an der falschen stelle eingefügt.
Aber an welcher Stelle der Prozedur gehört es denn?