Da fehlt noch was: Selection.Find
Rolf
Da fehlt noch was, das Makro bricht ab, wenn er die Auswahl nicht findet!
Was ist falsch?
Selection.Find(What:=Was1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Activate
If ActiveCell = "" Then
Sheets("Maske").Select
Nein1 = MsgBox("Die Entsprechende Nummer wurde nicht gefunden." & vbCr & "Bitte Prüfen Sie Ihre Eingabe (Gross/Kleinschrift)" & vbCr & "und versuchen Sie es erneut!", vbOKCancel, "Nicht gefunden")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Vielen Dank an alle
Rolf