Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zellinhalt suchen und Zelle auswählen

Gruppe

Suchen

Problem

Wie kann ich einen vorzugebenden Begriff in einer Anzahl von Tabellenblättern suchen und die Fundstellen melden lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Lagernummer()
   Dim rng As Range
   Dim vNumber As Variant
   Dim iCounter As Integer
   Dim sFirst As String
   Dim bln As Boolean
   vNumber = InputBox( _
      prompt:="Bitte Lagernummer eingeben:", _
      Default:="Nummer 12")
   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:="Lagernummer nicht gefunden!"
      End
   End If
End Sub