Herbers Excel-Forum - das Archiv

Mehrer Tabellenblätter durchsuchen

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

Betrifft: Mehrer Tabellenblätter durchsuchen
von: Mockwei
Geschrieben am: 04.12.2003 11:06:13
Hallo VBA Freaks

Ich hätte da mal ein Problem.

Mit diesem Script kann ich zwar alle Blätter durchsuchen, aber nur nach einem Kompletten Namen. Gebe ich nur einen Teil des Namens ein, so bekomme ich keine Ausgabe. z.B. Ich suche mockwei bekomme wenn ich den namen komplett schreibe auch ein ergebniss. Aber wie stelle ich es an das wenn ich nur mock schreibe auch an diese Stelle komme. Kann mir jemand diese Formel anpassen?



Sub MultiSeek()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = InputBox("Bitte Suchbegriff eingeben:")
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
lookat:=xlWhole, _
LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox( _
prompt:="Weiter", _
Buttons:=vbYesNo + vbQuestion _
) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
MsgBox prompt:="Keine neue Fundstelle!"
End Sub



Mit besten Grüssen

mockei
Bild

Betrifft: AW: Mehrer Tabellenblätter durchsuchen
von: WernerB.
Geschrieben am: 04.12.2003 11:24:02
Hallo Mockwei,

ersetze den Parameter 'xlWhole' durch 'xlPart'.

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Bild

Betrifft: AW: Mehrer Tabellenblätter durchsuchen
von: Andi_H
Geschrieben am: 04.12.2003 11:25:39
Hi Mockei,

müßte reichen wenn du diesen Zeile lookat:=xlWhole abänderst in lookat:=xlPart

Gruß
Andi
Bild

Betrifft: Mehrer Tabellenblätter durchsuchen
von: mockwei
Geschrieben am: 04.12.2003 12:26:42
Danke Euch hat super hingehauen

mfg
mockwei
Bild

Betrifft: Lookat:=xlPart (oT)
von: Karl-Otto Reimann
Geschrieben am: 04.12.2003 11:35:26
.
Bild
Excel-Beispiele zum Thema " Mehrer Tabellenblätter durchsuchen"
Suche über mehrere Tabellen Mehrere Schaltflächen für ein Makro
Suchbegriff über mehrere Tabellenblätter suchen. Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche
Druck aus mehreren Tabellenblättern auf eine Druckseite AutoFilter über mehrere Arbeitsblätter setzen
Daten von mehreren Blättern auf ein Druckblatt Prozentuale Erhöhung über mehrere Arbeitsblätter hinweg
Werte in mehreren Spalten sortieren Textreihe auf mehrere Spalten mit fester Seitenlänge verteilen