Thema Datum  Von Nutzer Rating
Antwort
26.04.2019 11:26:46 Karin
NotSolved
Blau In einem geschützten Blatt suchen und weiter suchen
 26.04.2019 12:48:20 Werner
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
26.04.2019 12:48:20		 Views:
422		 Rating:
     
Antwort:
  Ja
Thema:
In einem geschützten Blatt suchen und weiter suchen

Hallo Karin,

so:

Private Sub cmdSuche_Click()
Dim sSuchwort As String, oZelle As Range

'Passwortschutz aufheben
Worksheets("16_Tabellenverweis").Unprotect Password:=""
 
sSuchwort = InputBox("Bitte geben Sie den Suchbegriff ein.", "Suchfunktion")
If Not sSuchwort = vbNullString Then
    Set oZelle = Range("A3:J150").Find(sSuchwort)
    If Not oZelle Is Nothing Then
        oZelle.Offset(, -1).Select
    Else
        MsgBox "Der Eintrag wurde nicht gefunden"
    End If
End If

Set oZelle = Nothing
 
'Passewortschutz setzen
Worksheets("16_Tabellenverweis").Protect Password:=""
End Sub

Allerdings hast du mit diesem Code ein weiteres Problem. Wenn dein Suchbegriff in Spalte A gefunden wird, dann versucht der Code eine Zelle links der Spalte A zu selektieren. Da es da aber nichts gibt läuft der Code in einen Fehler.

Der ließe sich sicher auch abfangen. Mir stellt sich allerdings die Frage, warum du nicht einfach die Fundzelle selektierst. Wenn du beim Setzen des Blattschutzes auswählst, dass auch gesperrte Zellen gewählt werden können, dann macht das auch bei gesperrten Zellbereichen keine Probleme.

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.04.2019 11:26:46 Karin
NotSolved
Blau In einem geschützten Blatt suchen und weiter suchen
 26.04.2019 12:48:20 Werner
NotSolved