Thema: Kennwort für Blattschutz

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim rng As Range, oCell As Range
   If Target.Font.Bold = False Then Exit Sub
   If Target.Value = "" Then Exit Sub
   If IsNumeric(Target.Value) = False Then Exit Sub
   On Error GoTo ERRORHANDLER
   Application.EnableEvents = False
   With Range("A1").CurrentRegion
      For Each oCell In .Cells
         If oCell.Value = Target.Value And oCell.Font.Bold And oCell.Address <> Target.Address Then
            Beep
            MsgBox "Der eingegebene Wert existiert bereits!"
            Target.ClearContents
            Exit For
         End If
      Next oCell
   End With
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

Sub a()
Application.EnableEvents = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Blattschutz