Versuche mich gerade mit dem Problem von Zeilen Löschen verhindern, mit folgendem Code gelingt dies auch
Private Sub Worksheet_Change(ByVal Target As Range)
If Rows("1:7").Activate Then
Application.ScreenUpdating = False
Application.Undo
'MsgBox "Die ersten 7 Zeilen können nicht gelöscht werden!", , "Projekt Test"
End If
End Sub
Aber, wie muss die MsgBox da eingebunden werden ohne das ich 20 mal auf Ok drücken muss, krieg ich einfach nicht hinHoffe auf Hilfe von Euch und schon mal ein Danke für diese
Gruß, Guesa