Ich bräuchte nochmals Hilfe. Habe zwar einige Bausteine gefunden, aber alles nicht das, was ich will.
Ich habe in Excel mehrere Tabellenblätter.
Darin sind einzelne Spalten geschützt
Wenn ich über eine Userform-Formular etwas in die Excel-Tabelle eintragen möchte, geht das bisher super mit:
with sheets("Tabelle 1")
.unprotect Passwort:="123"
.cells(erste_freie_Zeile, 3) = "Auszahlung an " + ComboBox1.Text
.protect Passwort:="123"
end with
klappt einwandfrei in allen Variationen.
Auch folgender Code funktioniert top - allerdings nur, wenn die Zellen, Zeilen, Spalten nicht geschützt sind
Worksheets("Gesamtstand").Select
Range("A1:A65536").Select
Dim cell As Object
For Each cell In Selection
If cell.Value = ComboBox1.Value Then cell.EntireRow.Delete
Next
Wie kann ich hier mit 'unprotect' und 'protect' arbeiten?
Oder welche Lösung gibt es sonst noch