dir fehlt eine schleifenroutine um mehrere suchergebnisse zu erhalten.
https://docs.microsoft.com/de-de/office/vba/api/excel.range.findnext