Weitersuchen funktioniert nicht

[Sagulum]

Hallo,
 
Ich benutze Excel 2010 und habe nur sehr wenig VBA Kenntnisse
 
Ich habe mir eine einfache Tabelle mit 6 Spalten und 2000 Zeilen erstellt. Die Zellen sind gesperrt, nur die Auswahl ist möglich.
Es gibt nur ein Tabellenblatt. In Spalte 6 werden Hyperlinks eingetragen.
In den Spalten 1-5 können Suchbegriffe eingetragen werden die dem Hyperlink in der sechsten Spalte entsprechen.
Ein Textfeld für den Suchbegriff und ein Startbutton der die Suche startet befinden sich über der Tabelle.
Die erste Suche funktioniert super und die Zelle in Spalte 6, in der Zeile in der der Suchbegriff gefunden wurde, wird eingefärbt.
Beim ersten Klick auf den Startbutton öffnet sich auch eine Userform. Mit dem Button "Weitersuchen" "Fenster schließen" und "Excel beenden"
 
Klicke ich jetzt auf den Button "Weitersuchen" bekomme ich eine Fehlermeldung. Habe gefühlte tausend Möglichkeiten ergoogelt und ausprobiert, nichts funktioniert.
Im Anhang die Tabelle.
 
Ich hoffe jemand kann mir helfen. Die ein oder andere Fehlerabfangroutine wäre auch nicht schlecht.
Es grüßt das Sagulum

[AlterDresdner]

Hallo Sagulum,
das Blatt ist geschützt, da kann man die Farbe nicht ändern.
Du musst vorher den Blattschutz aufheben (Unprotect password:="???"), dann darfst Du...
Oder Du entsperrst die Zellen grundsätzlich...

[Sagulum]

Hallo AlterDresdner

Bilde mir ein, dass der Passwortschutz aufgehoben wird.
In der Userform-Sub aufruf mit

Call PasswordAufheben

und im Modul

Sub PasswordAufheben()

    ActiveSheet.Unprotect Password:="xx"

End Sub


Gruß Sagulum