Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Suche in allen Tabellenblättern

Forumthread: Suche in allen Tabellenblättern

Suche in allen Tabellenblättern
26.04.2005 12:50:19
thomas
Hallo,
muss öfters eine xls-datei nach bestimmten nummern durchsuchen. Ich mache das über Strg+F muss jedoch jedes Tabellenblatt anklicken. Gibt es eine Möglichkeit dass alle Tabellenblätter durchsucht werden? danke vielmals
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche in allen Tabellenblättern
26.04.2005 12:54:01
Reinhard
Hallo Thomas,
Strg gedrückt halten, dann unten die gewünschten Tabellen auswählen,
dann Strg-F
Gruß
Reinhard
AW: Suche in allen Tabellenblättern
26.04.2005 12:58:08
thomas
das ging aber schnell, Danke!!!!!!
AW: Suche in allen Tabellenblättern
26.04.2005 13:00:47
Herbert
Hi,
in deiner Excelversion kannst du das in den Optionen des Suchdialogs einstellen.
mfg Herbert
Anzeige
AW: Suche in allen Tabellenblättern
26.04.2005 13:31:46
opaharry
Hier eine VBA-Lösung zum suchen.

Sub MultiSuche()
Dim Sh As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
SBegriff = InputBox("Bitte Suchbegriff eingeben:")
For Each Sh In Worksheets
Sh.Activate
Set GZelle = Sh.Cells.Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
GZelle.Activate
If MsgBox("WeiterSuchen", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set GZelle = Cells.FindNext(After:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
Next Sh
MsgBox ("Suche beendet.")
End Sub

Anzeige
AW: Suche in allen Tabellenblättern
26.04.2005 13:33:46
opaharry
Hier eine VBA-Lösung

Sub MultiSuche()
Dim Sh As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
SBegriff = InputBox("Bitte Suchbegriff eingeben:")
For Each Sh In Worksheets
Sh.Activate
Set GZelle = Sh.Cells.Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
GZelle.Activate
If MsgBox("WeiterSuchen", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set GZelle = Cells.FindNext(After:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
Next Sh
MsgBox ("Suche beendet.")
End Sub

Anzeige
AW: Suche in allen Tabellenblättern
26.04.2005 13:50:45
thomas
Hi, danke nochmals.
Das mit der VBA-Lösung hört sich sehr gut an, da ich aber leider wenig Erfahrung mit VBA habe, noch eine Frage: wo muss ich diesen Programmiertext einfügen Userform oder Modul etc.
Modul o.w.T.
26.04.2005 14:18:37
Reinhard
AW: Modul o.w.T.
30.04.2005 11:26:57
opaharry
In ein Modul einfügen .
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

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