ich hatte mal vor einiger Zeit um Hilfe gebeten und hatte folgende Makroempfehlung bekommen:
Sub Unit()
Worksheets("Übersicht").Unprotect
Worksheets("Tabelle1").Unprotect
Application.ScreenUpdating = False
Worksheets("Tabelle1").Range("C5:D21").ClearContents
Worksheets("Übersicht").Visible = True
Worksheets("Übersicht").Range("D13:E24").SpecialCells(xlCellTypeVisible).Copy
Worksheets("Übersicht").Visible = False
Worksheets("Tabelle1").Range("C5").PasteSpecial Paste:=xlPasteValues
Worksheets("Übersicht").Protect
Worksheets("Tabelle1").Protect
End Sub
Ich weiß nicht, wie ich hier das Passwort fürs Blattschutz mit einbauen kann.Mit Worksheets("..").Unprotect Password:=PW
und Worksheets("..").Protect Password:=PW
funktioniert es nicht... :-/
siehe Eintrag:
https://www.herber.de/forum/cgi-bin/callthread.pl?index=1806773#1806773
Für jegliche Hilfe bin ich dankbar. LG