habe folgendes Makro:
Public Sub Zeile_mit_Datum4()
unprotectSheets
Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
Dim letzteQuelle As Long
Dim letzteZiel As Long
Dim vorhanden As Boolean
Dim x As Long
vorhanden = False
Set wsQuelle = Sheets("Action List Long Term Range")
Set wsZiel = Sheets("finished actions")
letzteQuelle = wsQuelle.Cells(Rows.Count, 14).End(xlUp).Row
letzteZiel = wsZiel.Cells(Rows.Count, 14).End(xlUp).Row + 1
With wsQuelle
For x = letzteQuelle To 6 Step -1
If IsDate(Cells(x, 14)) Then
wsZiel.Cells(letzteZiel, 2).Resize(, 13).Value = .Cells(x, 2).Resize(, 13).Value
.Cells(x, 2).Resize(, 13).Delete xlUp
letzteZiel = letzteZiel + 1
vorhanden = True
End If
Next x
If vorhanden = False Then
MsgBox "No finished action was" & vbLf & "found in the list." _
& vbLf & vbLf & "No data transmitted!!", , "Hinweis für " & Environ("UserName")
End If
End With
protectSheets
End Sub
Public Sub unprotectSheets()
Dim Tabellenblatt As Worksheet
For Each Tabellenblatt In ThisWorkbook.Sheets
Tabellenblatt.Unprotect "bla"
Next Tabellenblatt
End Sub
Public Sub protectSheets()
Dim Tabellenblatt As Worksheet
For Each Tabellenblatt In ThisWorkbook.Sheets
Tabellenblatt.Protect "bla"
Tabellenblatt.EnableOutlining = True
Tabellenblatt.EnableAutoFilter = True
Next Tabellenblatt
End Sub
Mein Problem ist jetzt, dass dadurch natürlich auch die Bedienung des Autofilters, der bereits gesetzt ist, geblockt wird. Habe schon etwas rumprobiert, bekomme es aber nicht hin.
Wer ist so nett und kann mir bei meinem Problem helfen?
Gruß
Patrick