Herbers Excel-Forum - das Archiv
Mehrer Tabellenblätter durchsuchen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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
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).
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
Betrifft: Mehrer Tabellenblätter durchsuchen
von: mockwei
Geschrieben am: 04.12.2003 12:26:42
Danke Euch hat super hingehauen
mfg
mockwei
Betrifft: Lookat:=xlPart (oT)
von: Karl-Otto Reimann
Geschrieben am: 04.12.2003 11:35:26
.