Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen trotz Blattschutz

Forumthread: Suchen trotz Blattschutz

Suchen trotz Blattschutz
16.06.2006 10:35:44
Philippe
Hallo,
ich habe ein Excel mit verschiedene Sheets unter anderem eins (Projektnummern) das geschützt ist durch ein Blattschutz.
Gibt es eine Möglichkeit (per VBA oder aus Excel) um trotz eines Blattschtzes zu suchen?
Vielen Dank,
Philippe
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen trotz Blattschutz
HansHei
Hallo Philippe,
meinst Du sowas? Code im entsprechenden Tabellenblatt:
Sub suchen()
Dim rngFind As Range
Dim strFirst As String, strFind As String
strFind = InputBox("Bitte Suchbegriff eingeben!", "Suchen")
If strFind = "" Then Exit Sub
With Sheets("Daten")
  Set rngFind = .Range("B3:P2000").Find(What:=strFind, after:=.Range("P2000"), _
    LookIn:=xlValues, LookAt:=xlPart)
  If Not rngFind Is Nothing Then
    strFirst = rngFind.Address
    Do
      Application.Goto rngFind, False
      If MsgBox("weiter suchen?", vbYesNo) = vbNo Then Exit Sub
      Set rngFind = .Range("B3:P2000").FindNext(after:=rngFind)
    Loop While Not rngFind Is Nothing And strFirst <> rngFind.Address
  End If
End With
End Sub
Gruß Hans
Anzeige
AW: Suchen trotz Blattschutz
16.06.2006 11:37:48
Philippe
Ja, Perfekt. Danke
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige