Suchfunktion und Arbeitsmappe sperren
15.01.2004 12:32:37
Manfred
ich habe zwei Fragen:
Ich habe eine Arbeitsmappe mit mehreren Tabellenblättern erstellt. Nun möchte ich auf dem ersten Tabellenblatt eine Suchfunktion einrichten, welche in allen Tabellenblättern sucht! Ich habe das ganze mal mit folgender Formel versucht, was aber nicht funktioniert:
StandardModule: basMain
Sub MultiSeek()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = InputBox("Bitte Suchbegriff eingeben:")
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
lookat:=xlWhole, _
LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox( _
prompt:="Weiter", _
Buttons:=vbYesNo + vbQuestion _
) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
MsgBox prompt:="Keine neue Fundstelle!"
End Sub
Als zweites möchte ich die Tabellenblätter in der Arbeitsmappe alle auf einmal schützen. Bis dato habe ich alle Tabellenblätter (und das sind eine Menge) einzeln über "Extras/Schutz/Blatt schützen" geschützt. Geht das auch einfacher???
Grüße
Manfred