Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige