Datenschnitt via VBA aktiviertem Blattschutz
24.10.2023 12:29:45
hockeyfreak
folgende Situation, an der ich langsam verzweifle:
Habe eine Tabelle mit Formeln, Dropdowns und Zellen zum Befüllen. Nun habe ich via VBA ein Makro mit folgender Funktion zum Löschen ausgewählter Zeilen:
Sub LÖSCHEN()
' löschen ausgewählter Zeilen ohne Formeln zu löschen und Dropdownauswahl zurücksetzen
Dim strPW As String
Dim strEingabe As String
strPW = "PASSWORT"
strEingabe = InputBox("TEXT", "Passwort - Abfrage")
If strPW > strEingabe Then
MsgBox "Der Vorgang wird beendet.", vbExclamation
Else
ActiveSheet.Unprotect "PASSWORT"
Selection.SpecialCells(xlCellTypeConstants).ClearContents
ActiveSheet.Protect "PASSWORT"
If ActiveSheet.ProtectContents = False Then
ActiveSheet.Protect Password:="PASSWORT"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End If
End If
End Sub
Mein Problem ist, dass nun der Datenschnitt über der Tabelle nicht mehr genutzt werden kann. Sobald man etwas filtert, die Zeilen markiert, das löschen Makro ausführt und dann den Filter entfernen möchte um die restlichen Ergebnisse anzeigen zu lassen kommt die Fehlermeldung, dass der Blattschutz aktiv ist. Dabei sollte doch das Filtern möglich sein. Wo ist der Fehler im Makro? Unter Eigenschaften ist der Haken bei Gesperrt bereits entfernt.
Habt ihr eine Idee?
VG
hockeyfreak