Eintrag in gesuchter Zeile machen

[buswinker]

Hi alle zusammen....
Ich zermartere mir gerade den Kopf weil ich nicht weiterkomme. 
Ich möchte ein Wort suchen, welches im Sheet "Prüfkarte" (aktives Sheet) per Drop Down ausgewählt wird. Gesucht wird das Wort in einer Bestandstabelle "Bestand". Dann soll in Reihe 18 das aktuelle Datum plus ein Jahr eingetragen werden.....
Gestern hat das funktioniert und heute hab ich irgendwas geändert und alles ist für den Arsch....HILFE

Sub NächsteJahresPrüfung1()
Dim suchen As String
suchen = ActiveSheet.Range("B3").Value
Dim Prüfung As String
Prüfung = DateAdd("yyyy", 1, Date)

Dim rng As Range

Set rng = ActiveWorkbook.Sheets("Bestand").Range("A1:A1500").Find(suchen)
ActiveWorkbook.Sheets("Bestand").Cells(rng.Row, 18).Value = Prüfung

End Sub

Wer findet den Fehler für den ich scheinbar zu doof bin????

[00202]

Gestern hat das funktioniert und heute hab ich irgendwas geändert und alles ist für den Arsch....HILFE

Hallo, :19:
das liegt in der Regel hier dran: :21:

Aus der Hilfe zu "Find":

• Die Einstellungen für LookIn, LookAt, SearchOrder und MatchByte werden jedes Mal gespeichert, wenn Sie diese Methode verwenden. Wenn Sie keine Werte für diese Argumente angeben, werden das nächste Mal, wenn Sie die Methode aufrufen, die gespeicherten Werte verwendet. Das Festlegen dieser Argumente ändert die Einstellungen im Dialogfeld Suchen, und durch Ändern der Einstellungen im Dialogfeld Suchen werden die gespeicherten Werte geändert, die verwendet werden, wenn Sie die Argumente auslassen. Um Probleme zu vermeiden, legen Sie diese Argumente jedes Mal explizit fest, wenn Sie diese Methode verwenden.
  

Das heißt also, wenn du per Hand im Suchfenster etwas an diesen Parametern änderst und rufst dann dein Makro auf (ohne diese Parameter explizit anzugeben), kann es zu diesem Problem führen. :21: