Suche in gesamter Arbeitsmappe
19.08.2003 10:57:50
Matthias H.
ich habe eine UserForm erstellt in die ich einen Suchbegriff eingebe und im aktuellen Blatt suche(Search) bzw. weitersuche(Searchon_this):
Dim Result1 As Integer
Sub Search() 'Suchen
Cells(1, 1).Select
If suche.TextBox1.Text <> "" Then
On Error GoTo err
Cells.Find(What:=suche.TextBox1.Text, After:=ActiveCell, lookin:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
suche.CommandButton2.Caption = "Weitersuchen"
Result1 = Selection.Cells.Row & Selection.Cells.Column ' Adresse d.1. Suchergebnisses speichern
Else
MsgBox "Bitte Suchbegriff eingeben."
End If
ErrorExit:
Exit Sub
err:
suche.CommandButton2.Caption = "Suchen"
suche.TextBox1.Text = ""
suche.TextBox1.SetFocus
MsgBox "Nichts gefunden!"
End Sub
Sub Searchon_this() 'Weitersuchen im aktuellen Blatt
Cells.FindNext(After:=ActiveCell).Activate
End Sub
Ich möchte "Weitersuchen" aber auf die gesamte Arbeitsmappe ausweiten(Searchon_all). Mein Ansatz funktioniert nicht so richtig, hat jemand einen Tip? In diesem Zusammenhang noch eine Frage, wie kann ich Cells.Find... auf einen bestimmten Zeilen-/Spaltenbereich beschränken?
Sub Searchon_all() 'Weitersuchen in allen Blättern
On Error GoTo err
If Cells.FindNext(After:=ActiveCell).Row & Cells.FindNext(After:=ActiveCell).Column = Result1 Then 'Vergleich mit Adresse d. 1. Suchergebnisses
MsgBox "gleich"
Nextsheet
Else
Cells.FindNext(After:=ActiveCell).Activate
End If
ErrorExit:
Exit Sub
err:
Nextsheet
End Sub
Sub Nextsheet()
n = ActiveSheet.Index
Sheets(n + 1).Select
If Selection.Cells.Row & Selection.Cells.Column = 11 Then Nextsheet
End Sub
Gruß
Matthias