Suchen in ungeschützten Zellen

Sub Suchen()

Dim Gefunden As Boolean

Dim Eingabe As String

Dim rng As Range

Dim ws As Worksheet

Eingabe = Application.InputBox("Bitte Suchbegriff eingeben", "Suchen", "")

If Eingabe > "" Then

For Each ws In ActiveWorkbook.Worksheets

If ws.Visible = xlSheetVisible Then

For Each rng In ws.UsedRange

If InStr(UCase(CStr(rng.Value)), UCase(Eingabe)) > 0 Then

Gefunden = True

ws.Activate

rng.Select

If MsgBox("Weitersuchen?", vbQuestion + vbYesNo, "Suchen") = vbNo Then Exit Sub

End If

Next rng

End If

Next ws

Else: Exit Sub

If Gefunden = False Then MsgBox "'" & Eingabe & "' nicht gefunden!", vbInformation, "Suchen"

End If

End Sub