Hallo zusammen,

ich habe einen VBA Code zum Löschen einer ausgewählten Zeile. Funktioniert auch super, jedoch funktioniert das Marko auch, wenn man nur eine einzelne Zelle auswählt. Dann wird nicht nur die Zelle, sondern das Tabellenblatt gelöscht. Das gleicht einer Katastrophe.
Hat jemand eine Idee? Aktuell sieht der VBA Code so aus:

Const strPW = "PASSWORT"

If InputBox("Lorem ipsum dolor sit amet, consectetur adipisici elit.", "Passwort - Abfrage") > strPW Then
MsgBox "Lorem ipsum dolor sit amet, consectetur adipisici elit.", vbExclamation
Else
ActiveSheet.Unprotect "PASSWORT"
Selection.SpecialCells(xlCellTypeConstants).ClearContents
ActiveSheet.Protect Password:="PASSWORT", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
End If
End Sub

Danke für eure Hilfe!
Grüße