Suche in allen Tabellenblättern

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm InputBox MsgBox
Bild

Betrifft: Suche in allen Tabellenblättern
von: thomas d
Geschrieben am: 26.04.2005 12:50:19
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

Bild

Betrifft: AW: Suche in allen Tabellenblättern
von: Reinhard
Geschrieben am: 26.04.2005 12:54:01
Hallo Thomas,
Strg gedrückt halten, dann unten die gewünschten Tabellen auswählen,
dann Strg-F
Gruß
Reinhard
Bild

Betrifft: AW: Suche in allen Tabellenblättern
von: thomas d
Geschrieben am: 26.04.2005 12:58:08
das ging aber schnell, Danke!!!!!!
Bild

Betrifft: AW: Suche in allen Tabellenblättern
von: Herbert
Geschrieben am: 26.04.2005 13:00:47
Hi,
in deiner Excelversion kannst du das in den Optionen des Suchdialogs einstellen.
mfg Herbert
Bild

Betrifft: AW: Suche in allen Tabellenblättern
von: opaharry
Geschrieben am: 26.04.2005 13:31:46
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

Bild

Betrifft: AW: Suche in allen Tabellenblättern
von: opaharry
Geschrieben am: 26.04.2005 13:33:46
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

Bild

Betrifft: AW: Suche in allen Tabellenblättern
von: thomas d
Geschrieben am: 26.04.2005 13:50:45
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.
Bild

Betrifft: Modul o.w.T.
von: Reinhard
Geschrieben am: 26.04.2005 14:18:37

Bild

Betrifft: AW: Modul o.w.T.
von: opaharry
Geschrieben am: 30.04.2005 11:26:57
In ein Modul einfügen .
 Bild

Beiträge aus den Excel-Beispielen zum Thema "rechnen mit drei zellen ?"