wie muss ich den folgenden Code ergänzen, damit der Autofilter in der 1.Zeile der Zieltabelle, trotz Blattschutz, funktioniert? Habe es mit
- ActiveSheet.Protect userinterfaceonly:=True
- ActiveSheet.EnableAutoFilter = True
probiert, jedoch ohne Erfolg.
Option Explicit
Sub kopieren()
Dim zSh As Worksheet ' z wie Ziel
Dim StDatei As String
StDatei = "Quelle_" & Format(Date, "dd.mm")
' Set zSh = Workbooks("Ziel.xlsm").Worksheets("Tabelle1")
Set zSh = ActiveWorkbook.Worksheets("Tabelle1")
zSh.Unprotect
' Workbooks(StDatei & ".xlsm").Worksheets("Tabelle1").Range("A1:F30").Copy
Worksheets("Tabelle2").Range("A2:F30").Copy
With zSh.Range("A2")
.PasteSpecial Paste:=xlValues
.PasteSpecial Paste:=xlFormats
End With
Application.CutCopyMode = False
zSh.Range("A2:A30").Locked = False
zSh.Range("B2:E30").Locked = True
zSh.Range("F2:F30").Locked = False
zSh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
zSh.EnableSelection = xlUnlockedCells
End Sub
Vielen Dank!