Office: vba - zu erster nicht gesperrter Zelle springen

schönen Tag Euch

Mit meinem Wissen, der Suche im Netz und viel ausprobieren komme ich nicht weiter:

Im gemeinten Blatt ist der Blattschutz aktiviert, nur nichtgesperrte Zellen können angewählt werden.
Auf dem Blatt liegen ActivX-Steuerelemente (2 Checkboxen, 1 Commanbutton und eine Textbox).


Wenn ich jetzt mit der Maus eine der Checkboxen klicke, oder in der Textbox "Return" drücke, soll die erste nicht gesperrte Zelle aktiviert/angewählt werden.
Das ist im Moment E14, kann sich aber ändern, deshalb möchte ich das gerne variabel haben, ohne absoluten Zellbezug.

Sowohl beim klicken der Checkboxen, als auch "Return" in der Textbox (ASCII-Code-Abfrage), werden schon Makros ausgelöst.
Dort würde ich gerne den passenden Code hinzufügen, finde aber nichts funktionierendes.

Es wäre klasse wenn Ihr mir dabei helfen könntet.
(bitte die evtl. nötige Variablen-Deklaration mitposten (Dim))

 

Hallo Achim,

das geht nur über Schleife

Code:

Option Explicit

Sub Achim()
    Dim RaZelle As Range
    For Each RaZelle In ActiveSheet.UsedRange
        If RaZelle.Locked = False Then
            RaZelle.Select
            Exit For
        End If
    Next RaZelle
End Sub

Gruß Hajo

 

herzlichen Dank Hajo

klappt perfekt, habs schon eingebaut und getestet
genau was ich gesucht habe