Hallo Manu,

wenn Find nichts findet, ist rng = Nothing und der Versuch mit Activate geht schief.

Im Übrigen ist dein Code ein wenig überarbeitungsbedürftig. Warum definierst du sverweis als String, wenn du eine Zahl brauchst? Genau die gleichen Ungereimtheiten gibt es bei den anderen Variabeln. Anstatt mit .Activate zu arbeiten, kannst du auch direkt das Worksheet ansprechen, worauf sich deine RANGE-Anweisungen beziehen sollen und wo gesucht werden soll.

Warum verwendest du nicht gleich die  VLookup Funktion in VBA?