Schlüsselwort finden

Sub Schlüsselwort()
Dim FC As Range
Dim lNummer
Dim i%
Dim ErsteAdresse$
Dim Schalter As Boolean
lNummer = InputBox("Mot clé à rechercher: ")
If lNummer = "" Then Exit Sub
For i = 1 To Worksheets.Count
Set FC = Worksheets(i).Cells.Find(lNummer)
If FC Is Nothing = False Then
ErsteAdresse = FC.Address
Do
Set FC = Worksheets(i).Cells.FindNext(FC)
MsgBox "Begriff gefunden:   " & FC.Parent.Name _
& " - Zelle " & FC.Address(False, False)
Loop While Not FC Is Nothing And FC.Address <> ErsteAdresse
Schalter = True
End If
Next i
If Schalter = False Then
Beep
MsgBox "Begriff nicht gefunden!"
End
End If
End Sub