Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Suchen in allen Blättern aber nur einmal
02.03.2006 19:11:00
Werner
Wie kann ich über VBA eine ganze Mappe nach einem Begriff oder Zahl suchen lassen aber nach der ersten Fundstelle soll das Makro abbrechen. Möcht es gern über VBA lösen, da das erste Blatt gesperrt ist und F5 oder die suchen Funktion nicht greift und so nicht sucht. Ich leg nen Button an und lass dann das Macro laufen.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen in allen Blättern aber nur einmal
02.03.2006 19:24:02
chris
Hallo hier ein ansatz.

Sub such()
was = InputBox("suchbegriff")
For Each cb In ActiveWorkbook.Worksheets
Set f = cb.Cells.Find(was, LookIn:=xlValues)
If Not f Is Nothing Then
MsgBox f.Address
Exit Sub
Else
End If
Next
End Sub

AW: Suchen in allen Blättern aber nur einmal
03.03.2006 18:57:40
Werner
Und wie geht es wenn er dann zu der Zelle Springt, so gibt er mir nur dei Adresse aus ,nicht mal das Blatt. Wäre supoer wenn ihr mir weiterhelft.
Werner
AW: Suchen in allen Blättern aber nur einmal
03.03.2006 19:30:23
chris
Das geht so.
Rückmeldung wäre nett !

Sub such()
was = InputBox("suchbegriff")
For Each cb In ActiveWorkbook.Worksheets
Set f = cb.Cells.Find(was, LookIn:=xlValues)
If Not f Is Nothing Then
t = f.Worksheet.CodeName
MsgBox ("gefunden in Tabelle " & t & " Zelle " & f.Address)
Worksheets(f.Worksheet.CodeName).Select
Range(f.Address).Select
Exit Sub
Else
End If
Next
End Sub

Anzeige
AW: Suchen in allen Blättern aber nur einmal
03.03.2006 21:52:02
Werner
Hallo Chris,
hier bricht er mir ab
Worksheets(f.Worksheet.CodeName).Select
es ist in meinem Beispiel Tabelle 10 die ich zwar umbenannt habe aber damit kann ich leben , da er ja die gefundene Zelle anspringt. Das Funktioniert aber nicht ganz.
kannst du mir weiter helfen, ich ann nur erahnen was in dem Macro steht.
Werner#
AW: Suchen in allen Blättern aber nur einmal
03.03.2006 23:12:02
chris
Hallo Werner, kann es mir nicht ganz vorstellen.
Bei mir klappt es.
Lade mal die Datei hoch dann schau ich es mir noch einmal an.
gruß Chris

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige