Suchen

• Suchen von Fritz vom 04.01.2007 18:35:43
• AW: Suchen - von Ramses am 04.01.2007 18:44:14
  • AW: Suchen - von Ramses am 04.01.2007 18:52:52
• AW: Suchen - von Fritz am 04.01.2007 18:49:48

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

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

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

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?

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