Blattschutzkonflikt mit Makro

[AndyExcel77]

Hallo,

ich habe folgende Suchfunktion bei mir (siehe unten) leider ist der Blattschutz mit dem Makro im Konflikt, er zeigt mir dann einen Fehler im Code an
Ich möchte gerne Spalte D71 - D202 schützen

Muss ich am Makro etwas ändern. ?

Vielen Dank :) :100:

Sub Suchfunktion()
  Dim bFound As Boolean, bCancel As Boolean
  Dim rC As Range
  Dim tAddr As String
  Dim tSearch As String
  tSearch = InputBox("Suche nach:", "Suchen")
  If tSearch = "" Then Exit Sub
  With ActiveSheet.Cells
      Set rC = .Find(tSearch, LookIn:=xlValues)
      If Not rC Is Nothing Then
          tAddr = rC.Address
          Do
              rC.Select
             
              rC.Resize(1, 4).Interior.ColorIndex = 4
              bCancel = MsgBox("Artikel:" & rC.Value, vbRetryCancel) = vbCancel
              rC.Resize(1, 4).Interior.ColorIndex = 0
              bFound = True
              Set rC = .FindNext(rC)
          Loop While Not rC Is Nothing And rC.Address <> tAddr And Not bCancel
      End If
  End With
  If Not bFound Then MsgBox "Begriff [" & tSearch & "] nicht gefunden!"
End Sub

[BoskoBiati]

Hallo,

am Beginn den Blattschutz aufheben und am Ende wieder setzen!

[Kuwer]

Hallo,

http://www.clever-excel-forum.de/thread-...l#pid61281 !

Gruß Uwe

[AndyExcel77]

Hallo,

Ok funktioniert , Vielen DANK :)