Gruppe
Allgemein
Problem
Wie kann ich einen vorzugebenden Begriff in einer Anzahl von Tabellenblättern suchen und die Fundstellen melden lassen?
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