Hallo,
folgendes Code führt bei mir zu einem Laufzeitfehler 1004:
Worksheets(DOK).EnableAutoFilter = True
With Worksheets(DOK).Columns("A:T")
.AutoFilter Field:="1", Criteria1:="
Hallo,
folgendes Code führt bei mir zu einem Laufzeitfehler 1004:
Worksheets(DOK).EnableAutoFilter = True
With Worksheets(DOK).Columns("A:T")
.AutoFilter Field:="1", Criteria1:="
sub Test()
sheets("DOK").unprotect Password:="Dein Password"
sheets("Dok").range("A:T").autofilter....
sheets("DOK").Protect Password:="Dein Password"
end sub
2. beim Aktivieren des Blattschutzes verwendest du folgenden Parameter:
Sheets("DOK").Protect AllowFiltering:=True, UserInterfaceOnly:=True
dann können deine Makros ungehindert auf die Daten zugreifen, während sie für den Anwender geschützt sind.
dieser Paramter lässt sich aber nur setzen, wenn der Blattschutz per Makro aktiviert wird.
von Hand gehts leider nicht.
Gruß, Daniel
Public Sub ZeilenEinundAusblenden()
Dim Zeile As Range
Dim AlleZeilenAn As Range
Dim AlleZeilenAUS As Range
Dim i As Integer
Test = 3
For i = 1 To 50
Set Zeile = Worksheets(DOK).Rows(i)
If Worksheets(DOK).Cells(i, 20)
Hat jemand eine Idee, was das falsch ist? Wichtig ist mir vor allem, dass das ein- und ausblenden sehr fix geht. Jede Zeile einzeln aus- und einblenden dauert definitiv zu lange.
Viele Grüße
Mathias