Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1564to1568
1564to1568
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suche nur auf dem geöffneten Blatt

Forumthread: Suche nur auf dem geöffneten Blatt

Suche nur auf dem geöffneten Blatt
15.06.2017 11:58:36
Fritz
Hallo,
ich habe hier eine Suche die sich aber auf die ersten 10 Blätter ausweitet.
Ich möchte nun diese Suche nur auf ein bestimmtes Blatt beschränken.
Am besten wäre die Suche nur auf dem Blatt, welches gerade geöffnet ist.
Würde mich über eine Lösung sehr freuen.
Hier die bisherige Suche
Sub Schaltfläche17_Klicken()
Dim Sh As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
SBegriff = InputBox("Bitte Suchbegriff eingeben:")
If SBegriff = "" Then Exit Sub
For Each Sh In Worksheets
If Worksheets(Sh.Name).Index

Gruß Fritz
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche nur auf dem geöffneten Blatt
15.06.2017 12:00:22
Hajo_Zi
Hallo Fritz 
Sub Schaltfläche17_Klicken()
Dim Sh As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
SBegriff = InputBox("Bitte Suchbegriff eingeben:")
If SBegriff = "" Then Exit Sub
'    For Each Sh In Worksheets
'        If Worksheets(Sh.Name).Index


Anzeige
AW: Suche nur auf dem geöffneten Blatt
15.06.2017 12:03:00
yummi
Hallo Fritz,
dann so 

Sub Schaltfläche17_Klicken()
Dim Sh As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
SBegriff = InputBox("Bitte Suchbegriff eingeben:")
If SBegriff = "" Then Exit Sub
set sh = ActiveSheet
Sh.Activate
Set GZelle = Sh.Cells.Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
GZelle.Activate
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set GZelle = Cells.FindNext(after:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
End If
Sheets("Menü  Info").Select
End Sub
Gruß
yummi
Anzeige
AW: Suche nur auf dem geöffneten Blatt
15.06.2017 12:05:27
Fritz
Prima,
ich danke euch.
Gruß
Fred
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige