---

Hallo zusammen,

ich möchte nach einem Suchbegriff in allen Tabellenblättern suchen, wer hat ein kleines Makro bereits.
Excel 2000
in der Neuen Version geht das, aber die habe ich leider nicht.
Danke im voraus

------------------
Gazelle

"Gilde der Erfinnder"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Gazelle,

mal ohne Makro, alle Tabellen selektieren und danach die Suche starten. Vielleicht hilft Dir das schon weiter?
Wenn nicht, nochmal melden.

lg Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Lieben Dank,

das haut nicht hin, und ich musste mir notgedrungen selber was schreiben.
Hier meine Lösung für alle anderen.
Sub Versuchsnummer()
      Dim rng As Range
      Dim vNumber As Variant
      Dim iCounter As Integer
      Dim sFirst As String
      Dim bln As Boolean
      vNumber = InputBox( _
              prompt:="Bitte Versuchsnummer eingeben:", _
              Default:="")
      If vNumber = "" Then Exit Sub
      For iCounter = 2 To Worksheets.Count
          Set rng = Worksheets(iCounter).Cells.Find(vNumber)
          If rng Is Nothing = False Then
              sFirst = rng.Address
          Do
              Set rng = Worksheets(iCounter).Cells.FindNext(rng)
              MsgBox "Gefunden in Blatt " & rng.Parent.Name _
                      & "  - Zelle  " & rng.Address(False, False)
              Loop While Not rng Is Nothing And rng.Address <> sFirst
              bln = True
          End If
      Next iCounter
      If bln = False Then
          Beep
          MsgBox prompt:="Versuchsnummer nicht gefunden!"
          End
      End If
End Sub

------------------
Gazelle

"Gilde der Erfinnder"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP