=Nothing Fehler - Find funktion

[schauan]

Hallöchen,

mal noch zwei andere Dinge:

Set zelleFind = ThisWorkbook.Worksheets("AUS").Range("S6:AD6").Find(xStr2, LookIn:=xlValues)

1)
Füge in diese Zeile einen Haltepunkt ein - z.B. Zeile markierne und F9 oder mit der maus links neben der zeile auf den Fensterrand klicken
Prüfe dann den Inhalt der Variable xStr2 (u.a. im Lokalfenster oder im Überwachungsfenster eine Überwachung hinzufügen)

2)
Nutze mal manuell die Suche - wird da die Zelle gefunden?