Herbers Excel-Forum - das Archiv

Suchen

Bild

Betrifft: Suchen
von: Fritz

Geschrieben am: 04.01.2007 18:35:43
Hallo schönen Abend
Ich habe in Tabelle 1 Zelle a1 einen suchbegriff stehen und möchte mit einem Makro die tabelle 3 und 5 nach dem suchbegriff durchsuchen,(der zu findende Wert befindet sich entweder in tabelle 3 oder 5 und nicht in allen beiden) die gefundene zelle soll markiert werden.
danke
Bild

Betrifft: AW: Suchen
von: Ramses

Geschrieben am: 04.01.2007 18:44:14
Hallo
probier mal
Sub Var_MultiSeek()
'by Ramses
'Sucht in der gesamten Mappe nach einem Begriff und selectiert den Begriff
Dim wks As Worksheet
Dim rng As Range
'Suchbegriff
Dim sFind As Variant
'Suchbegriff definieren
sFind = Worksheets("Tabelle1").Range("A1")
If sFind = "" Then Exit Sub
For Each wks In Worksheets
Set rng = wks.Cells.Find(What:=sFind, _
lookat:=xlPart, LookIn:=xlFormulas)
If Not rng Is Nothing Then
Application.GoTo rng, True
Exit sub
End If
NextStart:
Next wks
MsgBox prompt:="Keine Fundstelle!"
End Sub

Gruss Rainer
Bild

Betrifft: AW: Suchen
von: Ramses

Geschrieben am: 04.01.2007 18:52:52
Hallo
Auf die ganz einfache Art ohne Array
Sub Var_MultiSeek()
'by Ramses
'Sucht in der gesamten Mappe nach einem Begriff und selectiert den Begriff
Dim wks As Worksheet
Dim rng As Range
'Suchbegriff
Dim sFind As Variant
'Suchbegriff definieren
sFind = Worksheets("Tabelle1").Range("A1")
If sFind = "" Then Exit Sub
With Worksheets("Tabelle3")
Set rng = .Cells.Find(What:=sFind, _
lookat:=xlPart, LookIn:=xlFormulas)
If Not rng Is Nothing Then
Application.GoTo rng, True
Exit Sub
End If
End With
With Worksheets("Tabelle5")
Set rng = .Cells.Find(What:=sFind, _
lookat:=xlPart, LookIn:=xlFormulas)
If Not rng Is Nothing Then
Application.GoTo rng, True
Exit Sub
End If
End With
MsgBox prompt:="Keine Fundstelle!"
End Sub

Gruss Rainer
Bild

Betrifft: AW: Suchen
von: Fritz
Geschrieben am: 04.01.2007 18:49:48
Danke für die schnelle antwort.
kann ich die suche auch auf die tabelle 3 und 5 begrenzen. ich hab noch weitere tabellen wo aber nicht gesucht werden soll?
 Bild
Excel-Beispiele zum Thema "Suchen"
Zellinhalt suchen und Zelle auswählen Suchbegriff über mehrere Tabellenblätter suchen.
Suchen und weitersuchen Zahl +/- 1 suchen
Ein Zeichen in einer Formel suchen Datum suchen und Wert eintragen
Wert in Tabelle suchen und in UserForm ausgeben Letzte Zelle mit Inhalt suchen
Textdatei nach Begriff durchsuchen und Fundzeile importieren Wert in Array suchen, ohne jedes Datenfeld abzufragen