|
Tach, tach,
ich habe 2 Fragen:
1. Frage
In meinem Worksheet habe ich einige Spalten mit Einträgen, die geschützt sein müssen. Jeweils links daneben ist eine Spalte, die nicht geschützt ist und in die ich mit dem Cursor beim Finden springe. Das klappt auch, solange der Suchbegriff auf dem Blatt ist.
Wenn ich jetzt einen Suchbegriff eingebe, der nicht auf dem Blatt ist, soll eigentlich die Msgbox aufpoppen. Hier bekomme ich aber immer eine Fehlermedlung: Objektvarable oder With-blockvaralbe nicht festgelegt. *grübel*
Private Sub cmdSuche_Click()
'Passwortschutz aufheben
Worksheets("16_Tabellenverweis").Unprotect Password:=""
Dim sSuchwort As String
Dim oZelle As Range
sSuchwort = InputBox("Bitte geben Sie den Suchbegriff ein.", "Suchfunktion")
Set oZelle = Range("A3:J150").Find(sSuchwort)
If oZelle = "" Then
MsgBox "Der Eintrag wurde nicht gefunden"
Exit Sub
Else
oZelle.Offset(0, -1).Select
End If
'Passewortschutz setzen
Worksheets("16_Tabellenverweis").Protect Password:=""
2. Frage:
Ich möchte, wie bei der Standard-Suche von Excel, ebenfalls die Möglichkeit haben weiterzusuchen. D.h. die Infobox soll nicht geschlossen werden, sondern ich möchte einen Weiter-Button haben, mit dem ich (wie beim 1.finden) in die Spalte neben dem Suchbegriff springe.
Geht das überhaupt mit der Infobox?
Danke schon mal für Eure Hilfe
Karin
|